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1.0 SUMMARY AND INTRODUCTION 

During the past decade extensive capabilities for combined thermal 
and fluid flow transient analysis was developed at the Vought Systems Division 
(VSD) of LTV Aerospace Corporation. The capabilities included (1) a pressure/ 
flow solution for a general flow network (integrated with the finite difference 
temperature solution) including general valve analyses, orifice and pump analysis 
packages, (2) a number of special thermal analysis options including heat ex- 
changer analysis, cavity radiant interchange analysis, cabin analysis, etc. 
and (3) a number of input/output capabilities such as automatic plotting, in- 
terrupt and restart, etc. These capabilities were included in a general purpose 
thermal analysis routine, MOTAR^*, developed by VSD for NASA-JSC. 

The objective of the effort described by this report was to incorporate 
these fluid flow analysis, special thermal analysis and input/output capabilities 
of the MOTAR routine into the SINDA^ routine which was developed by the TRW 
Corporation. This effort was performed under contract NAS9-6807 for NASA-JSC, 

ATT the capabilities were added in the form of user subroutines so that they may 
be -added to different versions of SINDA with a minimum of prograirnier effort. 

Two modifications were made to the existing subroutines of SINDA/ 
VERSION 8 to incorporate the above subroutines. These were: 

^ - (1) A modification to the preprocessor to permit actual values 

-- of array numbers, conductor numbers, node numbers or con- 

stant numbers supplied as array data to be converted to 
relative numbers. 

(2) Modifications to execution subroutine CNFAST to make it 
compatible with the radiant interchange user subroutine, 

RADIR. 

This modified version of SINDA has been designated SINDA/VERSION 9. 

A detailed discussion of the methods used for the capabilities added 
is presented in Section 2.0. The modifications for the SINDA subroutines are 
described in Section 3.0. User subroutines are described in Section 4.0, and 
a sample problem is given in Section 5.0. All subroutines added or modified are 
listed in Appendix A. 


★ 

Superscripts refer to references in Section 6.0 
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2.0 DISCUSSION OF METHODS 


SINDA user subroutines were developed to Incorporate the MOTAR 
routine^ capabilities for fluid/pressure analysis, thermal analysis of a 
flowing fluid and enclosure analysis into the SINDA routine. The analytical 
methods for these capabilities are described in this section. Thermal analysis 
features such as those methods required for analysis of a flowing fluid and 
those required for enclosure radiation analysis are described in Section 2.1^ 
Pressure-flow analysis methods are described in Section 2.2. 

2.1 Thermal Analysis Features 

The calculation methods for (1) convection and flow thermal conductors 
for flow in a tube, (2) heat exchanger thermal performance, (3) inline heater 
thermal performance, (4) cabin thermal and mass balance, and (5) enclosure 
radiation thermal performance have been added to the SINDA library of user 
subroutines. The methods used are based on those from the MOTAR computer 
routine and are described in detail in the following sections. 

2.1.1 Convection Conductors 

Three user subroutines were prepared for the SINDA library to give 

to the user the capability of analyzing convection heat transfer for flow 

in a tube. These subroutines and their functions are: 

CONVl - Calculates heat transfer coefficient using re-, 
lationships for convection in a flowing tube 

C0NV2 - Calculates the heat transfer coefficient using the 
Stanton number obtained from interpolating a curve 

C0NV3 - Interpolates a curve of heat transfer coefficients vs 
flowrates for the coefficient 

T:he value of the convection conductor, G^-j, between a fluid lump and tube 
lump is given by the following relation for all three of the above 
routines: 

Gjj = hA (1) 

where 

h - the convection heat transfer coefficient 
A - the convection area 
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CONVl uses one of several methods for determining the heat transfer 
coefficient, h, for flowing fluid in a tube depending on the flow regime. 
The flow regime is assumed to be laminar when the Reynolds number is 2000 
or less. For this regime the convection heat transfer coefficient is 
calculated by: 



where: k = thermal conductivity 

D = hydraulic diameter to flow 

X = distance from tube entrance 

Re = Reynolds number 
> 4 m 

Tp— 

m *= flow rate of fluid 
M = viscosity of fluid 

P = wetted perimeter of fluid flow passage 

FI = An input factor for modifying fully 
developed flow 

" flow*^^^^ factor for modifying developing 

Equation (2) is a curve fit obtained by VMSC to approximate the Gratz so- 
lution to flow in a tube for values of greater than 0.001. 

The convection heat transfer coefficient for flow in a tube in the transi- 
tion flow regime (2000 < Re < 6400) is approximated in CONVl by the follow- 
ing relation: 

h = § [o.ll6 - 125)(Pr)’''^] ( 3 ) 

This relation was derived by Hausen'^ and holds only for fully developed flow. 
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The relation used in CONVl to determine h for turbulent flow (Re > 6400) 
is the following: 

h = .023 ^ (Re)’®(Pr)^^^ (4) 

C0NV2 supplies a more general option for determining the convection 
heat transfer coefficient. A curve of St(Pr)^^^ vs Reynolds No. is inter- 
polated to obtain the value of St(Pr)^'^^. That is, 

St(PR)^^^ » • F(Re) (5) 

Where St = Stantion number 

■ Nu 

fte Pr 

= h 
CpV 

' - ye iverage fluid velocity 

F(Rc)= An arbitrary function of Reynonds number which 
the user can input as a table 

The heat transfer coefficient is calculated by 

h » K F(Re) Re(Pr)^''^ (6) . 

D 

In C0NV3, the convection heat transfer coefficient is obtained by direct 
interpolation of a curve of heat transfer coefficient vs flowrate. 

2.1.2 Flow Conductors 

A method for calculating the value of flow conductors is required 
when analyzing a problem with fluid flowing in a tube. The flow conductor 
is a' one way conductor from node i to node j and is calculated by 

G.. = M Cpi (7) 

where: = the conductance from the upstream lump 

, W = the mass flow rate in the tube 

Cpi = the fluid specific heat for lump i 
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Two user subroutines FLOCNl and FL0CN2, were prepared to calculate the values 
for the flow conductors. Both subroutines reference the flowrate array and an 
array containing conductor identification information. FLOCNl assumes the 
specific heat is a function of temperature whereas; FL0CN2 assumes a constant 
value for specific heat. 

2.1.3 Heat Exchanger Analysis 

Four subroutines have been written to facilitate the thermal analysis 
of systems containing heat exchangers. These are HXCNT for analysis of counter 
flow heat exchangers, HXPAR for parallel flow heat exchangers, HXCROS for 
cross flow heat exchangers and HXEFF for any heat exchanger with an input 
effectiveness. These subroutines calculate the outlet temperatures of two 
sides based upon the inlet temperatures and heat exchanger effectiveness. 

The relations used for calculating effectiveness are described below. 

2.1. 3.1 Counterflow Heat Exchanger 

Subroutine HXCNT calculates the heat exchanger effectiveness using 
the relation from Reference 3 for counterflow heat exchangers. That is. 



Where < = effectiveness 

UA = overall effectiveness 

(MC)j = mass, specific heat product for the side with 
the smal lest MC 

(MC)/ = mass, specific heat product for the side with 
the largest MC 

The limiting cases for this relation are: 

(1) When (MOg/ (MC)^ = 0, 

f = 1 _ e - W(MC)s 

(2) When (MC)s/(MC)/ = 1 

UA 

e = rMC)s ^ UA 

1 + UA (MC)s+ UA 

lMC)s 


5 



Using the effectiveness as calculated by the above method, the outlet 
temperatures are calculated as follows: 


1. For the side with the smallest MC, (MC)s ^ 

Toutj * Ting - f (Ting - Tin^) (9) 

2. The outlet temperature for the side with the large MC is 
then calculated by 

Tout; = (MC)s (Tins - Toutg) + Tin; (10) 

wr 


2. 1.3. 2 Parallel Flow Heat Exchanger 

Subroutine HXPAR calculates the heat exchanger effectiveness 
using the relation for parallel flow heat exchanger^ whi ch is: 


t a 


The limiting cases are 



0) When (MC)s/(MC)^ = 0. 
c a 1 - 

(2)' When (MC)s/{MC)i = 1.. ' 


€ 


1 



2.0 


01 ) 


The heat exchanger outlet temperatures are then calculated using 
equations 9 and 10. 

2. 1.3. 3 Cross Flow Heat Exchanger 

Subroutine HXCROS calculates the effectiveness for cross flow heat 
exchangers using one of the four relations below depending upon mixing of 
the streams. 
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Both Streams Unmixed 


c = 1 - e 




(MC)/ 1 

Ws »? 


Where »7 


= [^] 


0.22 


Both Streams Mixed 


( 12 ) 


€ = 


UA 

TEH 


UA 

MCc 


- UA 

1-e^. 


UA 

(MC)/ 


1-e 


UA 

(MC)/ 


03) 


Stream (MC)s Unmixed 



(14) 


Stream (MC)/ Unmixed 


< 



L 



(15) 


The heat exchanger outlet temperatures are calculated using equations (9) and 

( 10 ). 

2. 1.3. 4 User Supplied Effectiveness 

Subroutine HXEFF was written to perform heat exchanger thermal analysis 
with a user supplied effectiveness. The effectiveness may either be supplied 
as a constant or as an array number which gives the effectiveness as a 
bivariant function of the flowrates on the two sides. The outlet temperatures 
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are then calculated using equations (9) and (10). 

2.1.4 Inline Heater Analysis 

Provisions for the analysis of a fluid heater have been included 
in SINDA with subroutine HEATER. This subroutine simulates an electrical 
heater with a control system which turns the heater on when a specified 
sensor lump drops below a set value and turns the heater off when the 
specified sensor lump rises above another set value. When the heater is 
on an input quantity of heat is added to the heater node. 

2.1.5 Cabin Analysis 

A subroutine has been written for use with SINDA which will give 
the user the ability to perform thermal analyses on cabin air systems including 
condensation on the walls and a vapor mass balance. The cabin heat transfer 
and condensation analysis involves the two-component flow of a condensible 
vapor and a non-condensable gas, with condensation of the vapor occurring 
on surfaces in contact with the fluid. Two problems of this nature have 
been studied extensively. 

1. Condensation on, or evaporation from, a surface over which 
a free stream of fluid is passing. In this case, for rela- 
tively low mass transfer rates, the fluid properties can be 
assumed to be constant. 

2. Dehumidification of a confined fluid stream by a bank of 
tubes. In this case there is a marked change in the 
temperature and vapor content of the fluid, and the de- 
tailed deposition of the condensate is not of primary 
interest. This type of analysis is usually handled on an 
overall basis similar to heat exchanges effectiveness 
calculations. 

The following additional assumptions have been made with respect 
to the cabin atmospheric conditions. 

1. The heat of circulation in the cabin is sufficiently high 
that the temperature and humidity are effectively the same 
throughout the cabin. 

2. The velocity at all points where heat transfer and/or con- 
densation can occur is known, and is proportional to the 
total mass flow rate in the cabin. 
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These assumptions' make it possible to calculate the heat and vapor 
balance in the cabin for the entire volume as a unit, and to solve the heat 
transfer and condensation equations at each node independently of the other 
nodes. 

Cabin humidity can be determined from an overall vapor balance in 
the cabin. The total vapor in the cabin at the end of an iteration is: 

Wy=Wy + Wy in - Wy OUt - 2 W|^ 

Where Wy « mass of vapor in cabin at end of iteration i 

Wy’" = mass of vapor in cabin at start of iteration i-1 

Wy = mass of vapor flowing into cabin during iteration i 

Wy = mass of vapor flowing out of cabin during iteration i 

, 2 = mass of vapor condensed during iteration i-1 

Wy .jp is determined from the known conditions of the gas flowing into the 
cabi n . 

Wy in “ rt* r ^in 

I i.+ ^in 

9 

Where m in = mass flow rate into cabin 

in = specific humidity of gas flowing into cabin 
* time increment 

It is assumed that an equal volume of gas is flowing out of the cabin. 

Then , 


Where 

and 
Where 

the individual nodes as described below. The properties of the cabin 
atmosphere are determined from the calculated value of Wy. The vapor pressure 


**^v out ■ m out .... c 

L > 

^ = specific humidity in the cabin (at the end of the 

previous iteration) 

m out = m in [ft /Pin] 

= cabin density 

pin = density of gas flowing into cabin 
The condensation term is determined from the calculations for 
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in the cabin is 



Pv 

s 

RvTc 

Vc 

Where 

Vc 


cabin volume 


Rv 

s 

gas constant 


Tc 

= 

temperature of cabin gas 


Py 

as 

vapor pressure 


Assuming that the cabin pressure is a constant, the gas 


partial pressure is: 
Pa = Pc - Py 


and 


W;, * '’a 


Ra Tr 


Where = mass of non-condensible gas in the cabin. 

Now the new value of specific humidity in the cabin can be 
determined by 




'c = 


Wa 


Where 


The properties of the atmosphere can now be determined by 
Me = XMq 

Cpc = Cpq 4- ^AcCpv 

1 + ^C 

kr = 'Xkq + <Ackv 

X * >i>c 

P c * Wy + Wg 

M = viscosity 
Cp = specific heat 

k = thermal conductivity 
X = molecular weight ratio, My 

-mT 
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and all values are evaluated at T_ . Cabin temperature can be 
detennined by a heat balance on the cabin atmosphere. 


Tc “ Tc^ ^ + m in Cpc , j^i-1) . 

“(Wv^'WA^C^c 


Where 

, i-1 
'c 

= 

Tc after previous iteration 


^in 

= 

temperature of gas flowing into cabin 

, T— 

2Ql 

= 

net heat loss to cabin lumps 


The heat 

transfer between the cabin atmosphere and the tube 

and structure lumps 

in the cabin is defined by; 


Qu 

s 

hAu [Tc-Tu]Ar 

Where 

h 

S 

heat transfer coefficient 


\i 

= 

heat transfer area of lump 


Tli 


temperature of tube lump 


Ar 

= 

time increment 

i ^ 

Using 

the 

Colburn-Chilton heat transfer-mass transfer analogy, 

tlie condensation 

L* . T 

(or evaporation) at the tube lump is determined by; 


A WLi 

=; 

Km A|_^ [ Pv ” Pwi] A r 

WhVre 

Wli 

= 

condensation on wall, lb. 


Km 

s 

mass transfer coefficient 


Pwi 

= 

vapor pressure at Tj_^ 


hn&fi The latent heat addition to the lump due to this condensation 
is 

= Aw^i X 

Where X = latent heat of vaporization 

The vapor pressure Pwj can be determined by a relationship 
■ derived from the Clausius-Clapeyron equation and the perfect gas law 
{-Appendix K of Reference 4}. 



X [• \l - To 

^w1 “ Pq ® Pg^o L 

Where Pq is known vapor pressure at a reference temperature 
To* 



Three methods are available for determining mass and heat transfer 
coefficient. For tube lumps the equations from Reference 3 for gas flowing 
normal to the tube axis was assumed. Three different equations are used 
depending on the value of the Reynold's number. 

- Nu = 0.43 + .533 (Re)*® (Pr)*®^ Re < 4000 

Nu = 0.43 + .193 (Re)*®^® (Pr)*®’ 4000 < Re < 40000 

Mu * 0.43 + .0265 (Re)*®®® (Pr)*®^. 40000 < Re < 400000 

These equations were derived for an air-vapor mixture, but should 
be relatively accurate for other similar gases. The Mussel t and Reynold's 
numbers in the equations are defined using the tube diameter for the 
characteristic dimension, and the velocity in the Reynold's number is input 
at each lump and ratioed to the total cabin atmosphere flow rate. 

Wc 

ui = i/io 

Wco 

Where Wco = nominal cabin atmosphere circulation rate 
^o = velocity at lump at Wco 
Wc = circulation rate at time of calculation 

The second option assumes flat plate flow for cabin wall lumps. 

In this case the heat transfer coefficient, for laminar flow, varies along 
the plate. Hence, direction of gas flow and the location of an assumed 
leading edge must be assumed. The equation for flat plates from Reference 3 is 

Ny = 0.332 Re*® Pr^'^® 

where the Nusselt and Reynold's numbers are local values and are 
defined by the distance X from the assumed leading edge. For a wall lump of 
length Li which is located a distance LiQ from the assumed leading edge, the 
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average Nusselt number can be defined as: 

Nu = 0.664 Pr (Rei)*^ - {Reo)*®J 

Where Nu is defined by L-f 

Reo is defined by L^o 
Rei is defined by L-jo + M 

The third option is a direct user input for convective heat transfer coefficient. 

For the determination of mass transfer coefficients, the same 
equations which were used for heat transfer coefficient can be used with the 
Sherwood number substituted for Nusselt number and Schmidt number for Prandtl 
number. However, if the diffusion coefficient for the cabin is approximately 
equal to thermal diffusivity, the Sherwood number is equal to the Nusselt 
number and the mass transfer coefficient can be determined directly from the 
heat transfer coefficient. That is: 


Sh = Nu 

KjnRTgX = hx 

iT 


If D 


o. then 


Km 

Km 


= hP 

apCpRTg 

= h 
Cp Pc 


(16) 


Equation (16) is the Lewis relationship (Reference 3). For a mixture 
of oxygen and water vapor characteristic values are .866 for the diffusion 
coefficient, D, and .879 for thermal diffusivity, a, so the relationship 
should be valid. 

For cabin tube and wall lumps the values for AQl-j and AQxi are 
added to the basic heat balance equation for these lumps. Values for AQ|.i 
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are sumned for all participating lumps for Input to the cabin atmosphere heat 
balance. Values for AWL^ are also summed for all lumps for cabin humidity 
balance, and the value for total water condensed on each lump WL^. Is main- 
tained. 


If the rate of evaporation or condensation is high it would be 
possible for the cabin humidity to change significantly during a single 
iteration. This could lead, for example, to overestimating condensation by 
assuming that the humidity is constant in the calculation. A test of the 
approximate vapor pressure in the cabin at the end of the iteration Is made, 
and the condensation or evaporation at any lump Is reduced, if the sign of 
the AWL^ term is changed. A value Wy' Is calculated by: 


Wy' = Wy^‘^ - SWl 1 


and 


’’v‘ ■ “V 




Then for each lump If 

Py* ~ Pwi 

Py " Pwi 


< 0 


a new value of AW|_1 is calculated by: 


A Wj_j * A W|_^ 


i 


Pwi 


The new values of AWLi are now again summed for the new value of 
2 AWl for establishing cabin humidity for the next iteration. A test is also 
made to assure that Wy' Is never less than zero. 

2.1.6 Radiation Interchange Analysis 

Capabilities have been incorporated into subroutines for use with 
SINDA to facilitate the analysis of radiation heat transfer in an enclosure. 
The capabilities Include the ability to: 
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(1) Analyze diffuse and/or specular Infrared radiation in 
an enclosure 

(2) Analyze diffuse and/or specular radiation from an external source 
for as many wave bands as desired 

(3) Consolidate several temperature nodes into a single surface 
to improve computational efficiency 

A radiation surface is defined as a group of temperature nodes which 
may be assumed to have identical radiating properties, angle factors and 
interchange factors. 

The subroutines account for the net radiation heat transfer between 
a number of surfaces due to emitted radiation from each surface, reflected 
radiation from each surface, and radiation from any number of incident sources. 
The reflection of the energy originally emitted by another surface or from 
an external source may be either diffuse, specular, or any combination of the 
two. 

2. 1.6.1 Emitted Radiation In A Cavity 

The radiosity of a surface is defined as the flux of infrared 
radiation leaving that surface with a diffuse distribution (according to 
Lambert's Law). That energy leaving a surface which has been reflected in 
a specular manner does not contribute to the radiosity of that surface. The 
incident infrared radiosity is denoted by the symbol H. The reflectance 
(1 - e) of a surface is separated into two components, the diffuse reflectance 
(p), and the specular reflectance (p^). Here e is the emittance of the surface 
and is equivalent to the afasorptance for long wavelength radiation. With 
the angle factors (Fij) defined in the normal way, there exist similar angle 
factors which relate the geometrical ability of surface i to radiate to surface 
j by means of a mirror-like reflection from specular surface k. Reference to 
Figure 1 indicates the method of imagery which will enable the calculation of 
these reflected angle factors. Here the angle factor to surface j is identical 
with the angle factor to the image of surface j. Also the angle factor is 
limited by the ability of surface i to "see" through the "window" of surface k. 
With the specular surface angle factors so defined, an interchange factor Eij 
is defined similarly to reference 5 as follows: 
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SPECULAR 

SURFACE 

K 


I t 

PLANE PASSED THROUGH K 
\ 


IMAGE OP J IH K 
AS SEEN 3Y i 


PARALLEL TO 
NORMAL TO K 



•••PROJECTION OF j ONTO 
f; PLANE OF K IN DIRECTION 


P MEASURED IN THE PLANE OF IjK 


illustration of method used TO DETERMINE SPECULAR SURFACE REFLECTED VIEW FACTORS 


FIGURE 1 



Here F-jj{k) is the angle factor from i to j as seen in the specular surface 
I ) angle factor from 1 to j as seen in the double specular 

reflection from k and \. There are an infinite number of possible combinations 
of these multi-reflections. It is evident that the interchange factors account for 
the specularly reflected radiant flux from the reflecting surface. This 
portion of total leaving flux is not a component of the radiosity of that 
surface. The radiosity may be written 

Bi * 

and, for ns surfaces, 

ns 

Now the interchange factors obey the reciprocity relation 

^i ^4i (20) 

So. I S ^21) 

I J 

i 

I ’ ^ 

Substitution into the equation, fqr B results in 

^ ^ ^ i j ■ S ^ij^ " *i ^1^ (22) 

This equation represents a set of linear, simultaneous, inhomogeneous 
algebraic equations for the unknowns (Bj). The symbol 6ij is the Kronecker 
delta function which is 1 when i = j and is 0 when i j. 

Note that the coefficients of Bj in equation (22) do not form a 
symetric coefficient matrix since the off diagonal terms contain - PiEij. 

This equation can be made symetric by multiplying each equation by Ai7pv 


(18) 

(19) 
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This gives 


Y (^n N - E,jA, \ Bj. ■ ii_Ai 
A f>i / Pi 


\i^ar ■ ^ (23) 

1 * 1 » ns 


Written in matrix form this equation Is 

E B = T 

Where E is a symetric coefficient matrix 
B = E’^T =[eTj]T 


The solution is 


(24) 

(25) 


or 


ns 


B. = V A. 4 

1 Z-rf ij J O T. 

0=1 


^0 ' 


Jhe net heat transfer rate asorbed by surface i is given by 

^i ■ C ^i ^ 

Where is given from equation 08) as 

-_L [B^ - 

Pi 

Substituting in for gives 

^1 


(26) 


(27) 


4 . 


: ^i U i ^i -t^i J 


(28) 
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Substituting 1n for from equation (26) into equation (28) gives 

ns 

0 - t ^ !ii_ljA<7T/ - ( p, + <, 1 p t/} 

Q< - > 0=1 (>J ■> 10 11 


ns 


-1 


iili E 


0=1 


'i 


•V ■ [ r , 


( 29 ) 


4 4 - 

Since, in steady state, Q-| = o , and = Tj for all i and j we can 
conclude that 

p. + c. - eTl < .A. = e^l ^.A. 

1 ^ 3_L ^ 10 -JUL. 

P P 

1 j;«i 


Making the above substitution in equation (29) gives 
ns 

Q, = Z [T]-Tt] 


0=1 


"1 '’o 


If we define as 

Zf-- = ^ ^ . A.eTl 

i .1 J ij 


p. p. 

1 'J 


1 ^ 0 


Then 


ij 


Qi 


.-1 


, ^i^/i ^ . 


Pi pj 


ns 


1 = 0 


5, " ^ i/i K - ^i] 


(30) 


(31) 


(32) 


This equation gives the heat flux between surfaces. However, each surface 
can contain several nodes. The heat absorbed by for each node is determined 
by: 
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ns 


( 33 ) 


"i J»i 

Where n = the node number on surface i 


Prior to each iteration, the temperature of the surfaces are determined by 

nn n nn * 

r 

(34) 

E A. A. 


nn / 

E T„ 

A n n 

T 4 _ n=1 

*i ” nn 


n*l 


n 


Where nn = the number of nodes on surface i 


Since the heat transfer rate given by equation (33) depends on the node 
temperature, stability considerations must be taken into account. This is 
handled, by storing the following relation into the array containing the 
sum of the conductors used for time increment calculation 

nc 

“"n = ^ » T„3 E ^ A,, 

S7 jd ^ 

J 

Subroutine RADIR makes the calculations necessary to obtain Qn 
given by equation (33) and CONn given by equation (35). The following is 
a summary of the calculations: 

.A. The following are performed the first time through RADIR: 

1. From the user input values of Eij, A^ , and p^- , the E 
matrix given by equation (24) is formed. Only half 
of the symetric matrix is stored to save space, 

2. The E matrix is inverted in its own space to get E”^ 
with elements e-jj”^ 

3. The*^ A^j values are determined from equation (31) 
and stored in the surface connections data. 

B. The following calculations are performed on each temperature 

iterations : 

1. The temperature of each surface is calculated by equation 
(34). 

2. The heat abso'^bed for each node is determined using 
equation (33) and is added to the Q array. 
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The routine utilizes data used for obtaining in step A as working 
space for step B» thus, maximizing space utilization. 

2. 1.6.2 Radiation From External Source 

As with the internally generated radiation, the solar (or any other 
external source radiation) interchange factor is defined by 


I 



EE 

k I 


1 '■/ 




(k.O 


Where is the solar specular reflectance of surface K 

F. .(K) is the angle factor from i to j as seen in the 
specular surface k 

F-.(K,n is the angle factor from i to j as seen in a double 
specular reflection from j to / to k back to i 


The interchange factors as defined above accounts for the specularly flux 
reflected from the surface. Thus, since the specular component of the flux 
is assumed to go directly from surface i to surface j by the interchange 
fa.ctor, Eij, this portion of the total flux is not a component of the radiosity 
for the intermmediate surfaces (k and \ above). The radiosity of surface 
i is given by 


Where 


Bt = "i* H* 


B* is the radiosity (energy leaving) 


(36) 




is the incident energy 
is the diffuse reflectance 


The energy incident upon a surface is given by 

ns 


^ ^i 


H- = V b: e. . 

1 ^ J ij 

j=i 

Where S-j is the energy directly incident on surface i from 
an external source 


(37) 
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Substituting equation (36) into (37)» multiplying by Af/p^ and simplifying 
gives the following relation for the radiosity 

n 


^i “ 

Lt J 




J=-l 


( 38 ) 


This set of n equations can be written In matrix form as 


E B = S 


(39) 


Note that the equations are written so that E* is a symatric matrix, which 
has the solution for B* • 

B* - E*-’S or B, = 53 (e*r’Sj (40) 

. , J = 1 

Where [er^j*' is the ijth element of the inverse of the E* matrix 

The heat flux absorbed by the i th surface is given by 


But from equation (36) ’ 


0* 

^i = aH 
A.. 


1 




Bf 

P,» 


Combining equations (40), (41), and (42) gives 

n 

* -1 


Q* ' L 


J=1 


e . . 

ij 


^ AjAjSj 


If we define 


T ,. = e * 


*«1 




ij 


P* 

i 


Then the absorbed heat flux is given by 

J=1 


(41) 

(42) 


(43) 


(44) 


(45) 
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Equation (45) gives the heat absorbed by each surface. However, each surface 
may contain several temperature nodes. The absorbed heat for each node is 
given by: 

n* - *n n» 

■ A7 (46) 

* 

Where A is the area of the node 
n 


Subroutine RADS0L was written to make necessary calculations to 
obtain Qn* given by equation (46). The following is a summary of the , 
calculations: 

A. The following calculations are made the first time through 
RADSOL: 

-1. From the user input values of E .j, p^. , and Ai , the 
E* matrix given by equation (39) is formed. Only one 
half is stored since E* is symetric. 

2 . The E* matrix is inverted in its own space to get E*'^ 
with elements, eTj. 

3. The'jr' tj Ai values are determined from equation (44) and 
stored in the surface connections data. 

B. The following calculations are performed on each temperature 
iteration: 




1. The heat flux absorbed by each node is calculated by 

n 

^ J=1 

2. The net heart absorbed by this wavelength radiation is 
calculated for each temperature node on each surface by 


QJ = 

n n 




This quantity of absorbed heat is added to the Q array for 
node n. 
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Note that the user may specify subroutine RADSOL for an many bands of 
radiation from an external source as desired. A single call is required 
for each band. 
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2.2 


N 


Fluid Flow Analysis 

Subroutine PFCS was written as a SINDA user subroutine to provide 
the ability to perform fluid pressure/flow analysis for flow of an incom- 
pressible fluid in tubes. The fluid flow analysis of PFCS is integrated 
with the thermal analysis capability so that the temperature dependence 
of properties is included in the pressure balances. PFCS is called from 
the VARIBLES 2 user logic block. 

PFCS performs a pressure-flow balance on a general flow network 
including the following effects: 

(1) Friction pressure drop 
-- (2) Orifices and fitting type pressure losses 

(3) Valves 

(4) Pumps 

(5) Incoming flow sources at any pressure point in the system 
The user describes the flow model to the subroutine by supplying the tube 
network connections and information concerning fluid properties, flow 
geometry, temperature model lumps, orifices, valves and pumps. Using this 
information, the subroutine determines the flow distribution required to 
satisfy (1) the conservation of mass at each node point and (2) equal 
pressure drops across tubes in parallel. The model used to describe the 
flow system and the analytical methods for determining the solution are 
described below. 

2.2.1 Overall Flow Model Description 

A flow problem may be analyzed with PFCS, simultaneously with a 
thermal analysis, so that the flow solution is continually updated based 
on the thermal conditions. To perform a flow analysis, the user must in- 
put a mathematical model of the flow system. The flow system is assumed 
to consist of a set of interconnected tubes such as the example shown in 
Figure 2 which consists of two radiator panels, each containing four 
tubes and connected so that they flow in parallel. 

For clarity the following definitions are made at this point: 
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Tube Numbers 
XX Pressure Nodes 


FIGURE 2 FLOW SYSTEM SCHEMATIC 



(1) A tube is any single length of pipe between two pressure 
nodes. A tube "contains" fluid temperature nodes and may 
contain as many of these as required. 

(2) A pressure node is located at each end of a tube. As many 
tubes as desired may be connected at a node junction and 

a node must exist at the junctions of two flow pipes. 

We must make a mathematical model to describe the fluid flow information to 
the computer. The information required consists of: 

(1) Identification of the pressure node numbers 

(2) Identification of the tube numbers and the two pressure 
nodes connected by tube 

(3) The fluid temperature nodes contained in each tube 

(4) The flow geometry for each temperature fluid nodes 

(5) The number of "head losses" for items such as orifices 

(6) Fluid property information 

(7) Valve connections and characteristics 

(8) Pump characteristics 

To build a flow mathematical model, a schematic of the flow system is needed. 

As shown in Figure 2, the pressure nodes and tubes may be superimposed on 
the schematic. It is also helpful to impose the fluid temperature lump numbers 
for each tube. 

To facilitate speedy analysis on a general flow problem, provisions 
have been made for the user to divide the flow system network into subnetwork 
elements. For example, the flow system shown in Figure 2 could be divided 
as shown in Figure 3. Tubes 23 and 24 are added in the main network as shown 
in 3(a) to replace subnetwork elements 1 and 2. The subnetwork elements 1 
and 2 which are shown in Figures 3(b) and 3(c) are then input as separate 
network elements. This type of subdivision allows the solution to be obtained 
by solving two sets of 6 simultaneous equations and one set of 8 equations 
rather than the original set of 16 simultaneous equations. This type of sub- 
division has been found to enhance the solution speed and accuracy for pro- 
blems with a large number of nodes. 

In suimiary, the pressure/flow solution is obtained by the following 

sequence: 
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(1) The flow resistance is obtained for each fluid temperature 
lump in each tube including the effects of friction, orifices, 
and fitting type losses. 

(2) The flow conductor valve is obtained for each tube by summing 
all the resistances of the fluid lumps in the tube, adding 
the valve and user supplied resistance to the sum, and in- 
verting the resistance. 

(3) A set of simultaneous equations is set-up and solved for each 
main system and subnetwork to obtain the pressures. 

(4) The flow rates are then calculated. 

A detail discussion of each element in the above sequence is described in the 
following subsections. 


2.2.2 Tube Conductor Determination 

The value of the flow conductor is determined for each tube by 
first calculating the flow resistance for each temperature fluid lump con- 
tained in the tube, summing these resistances up to obtain the flow re- 
'sistance of the tube and inverting the tube resistance to get the conductance. 
Flow conductance is defined by the relationship 








(47) 


Where 



‘ 1j 

Pi 

s 


flow rate between pressure nodes i and j 

flow conductance between nodes i and J 

pressure at pressure node i 
pressure at pressure node j 


The flow resistance for each lump is then 


/ 


R - 1 . ^ 


Where R|^ = flow resistance for lump k 
APjj = pressure drop for lump k 
But APj^ is given by 


APk 


■( 




) ' 




(48) 
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Where = the friction factor for lump k 
ffc * the friction factor coefficient 
Lj^ » the lump length for lump k 

D = the lump hydraulic diameter for lump k 

K s the dynamic head losses for lump k 

W = the flow rate 

g. = the gravitational constant 

P|^ = the fluid density for lump k 

_J_2 

257^ (49) 


A = the flow area 
The flow resistance is then given by 

^k 


■( 


Two options are available for obtaining the friction factor, f|<;. These are 
(1) internal calculations for all flow regimes and (2) internal calculation 
for laminar flow and obtained from a table of f vs Re (where Re is the 
Reynold's number) for transition and turbulent flow. For the first option 
the internal calculations for the three flow regimes are: 


Laminar Regime : Rek £ 2000. 



Where fj^ = friction factor for lump k 
Rck = Reynolds number for lump k 


(50) 


Transition Regime : 2000 < ROj^ < 4000 


= .2086082052 - .1868265324 


Re. 

K 

000 


(51) 


+ .06236703785 


1000 

[ - .0065545818 1 

[ Vooo I L'^^J 
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( 52 ) 


Turbulent Regime : RejS.4000 


f e 71 A 



Equation (51) for the transition regime is a curve fit between the 
laminar and turbulent regimes which was derived to match the two curves in 
a continuous manner. It is merely an arbitrary curve in this undefined 
region. A curve of the friction factor vs Reynold's number given by the 
above relations is shown in Figure 4. 

The second option for friction f^actor uses equation (50) for the 
.laminar regime and a user input curve of f|( ve Re for the other regimes. 

The options available for input of the dynamic head loss, j»^ , include 
(1) an input constant or (2) a tabulated curve of vs Re. 

— To obtain the conductance for each tube, the flow resistances for 
all the lumps in the tube are added and then inverted, giving 





(53) 


- 2 . 3 ^ 2 . 3 Valve Analysis 

Provisions have been included in subroutine* PFCS for valves to be 
included in the flow balance. The valve pressure drop is characterized by 
the’ foil owing equation for each side pf the valve; 



where AP = valve pressure drop 

E = valve pressure drop factor (user input) 
u = . flowrate through the side of the valve under consideration 
X = the fraction of the valye opening ( x = 0 indicates 
valve closed; x = 1*0 indicates valve full open)' 
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Three basic types of valves are available in PFCS which give different 
characteristics for the dynamics of the valve position x- These types are: 

(1) Rate Limited 

(2) Polynomial ... 

(3) Shut-off 

A number of variations are available foir each valve type. For instance, each 
of the above may be either one sided or two sided. If a valve is two sided, 
the valve position of side 2, X2> related to that of side one by 

X2 = “ X] 

If the valve is one sided, either side one or side two may be used. Provisions 
are included for a valve time constant to be included with the polynomial valve. 

The methods used to obtain the valve positions for each of the three 
methods are described below. 

2. 2^ 3.1 Rate Limited Valve 

The valve position for the rate limited valve is obtained by an 

,'Z * * 

approximate integration of the valve rate of movement, X. X depends on 

the.-temperature difference between the valve control set point temperature 

and. the sensor temperature as shown in Figure 5- With this characteristic, 

the.:valve has no movement as long as the valve temperature error, AT, is 

witliin the dead band. Outside the dead band, the velocity of the valve in- 

# 

creases linerarly as the error increases to a maximum rate, X max. The dead 
band, rate of velocity increase^ dX/d(AT), and the maximum velocity are 

controlled by user input. _ 

The relations used to obtain the valve positions are as follows: 

x' + (AO (54) 

valve position at iteration i+1 
valve position at iteration i 
valve velocity at iteration i+1 
the problem time increment 




Where 


,i+l 


i+1 


X 
Ar 
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Valve Velocity, X = Fraction Open per Unit Time 



Figure 5 Rate Limited Valve Operation 




The valve position is limited by 

X min ^ X max 

Where X min and X max are input limits on the valve position. 

ft y ^ 1 . 

The valve velocity, X , in equation (54) is given by; 

X^^^ = 0 if jlsen - Tset I Tdb 

Where 

Tsen = Sensor lump temperature 
Tset = Set point temperature 
Tdb * Valve dead band temperature 

X^'*’^ * dX [ Tsen-Tset-Tdb ] if Tsen >Tset + Tdb 
HTAT) 

me : . ( Tsen-Tset+Tdb ] if Tsen < Tset - Tdb 

e m dTAT) 

The valve velocity is limited by 

Xmin ^ < Xmax 

After the valve position for side 1 is obtained from equation (54), the side 
- 2 - position is obtained from X 2 = ^-0 ■ X] 

, 2.2, 3. 2 Polynomial Valve 

The polynomial valve determines the steady state valve position 
idiS a 4 th degree polynomial function of the temperature error between the 
sensor lump and the set point. A valve time constant is then applied to 
determine how far between the previous position and the new steady state 
-position the valve will move. The steady state position, is given by 

Xgg = Ao + A^ AT + Ag AT^ + A 3 AT^ + A^ AT^ 

Where AT = Tsen • Tset 

Tsen = the sensor lump temperature 
Tset = the set point temperature 
Ao, A^, ^ 2 * ^ 3 * ^4 ‘ input constants 
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The valve position, is then determined by 

•= Xjj + .(X^-Xj5) (55) 

Where X^^^ = valve positon at iteration i+1 

x' , = valve position at iteration i 

tr = problem time increment 

Tq = valve time constant 

The valve position for side 2 is given by 
■ X2 = 1.0 - X^ 

where X^ is given by equation (55) 

Note that this valve combines the capabilities of the polynomial valve and 
the proportioning valve described in Reference 6. If one desires to 
eliminate the effect of the time constant (and thus, give the valve an 
instantaneous response), a value for should be input which is small 
compared to the time increment, Ax. Also, either a constant value or a 
temperature lump number may be specified for the set point to permit use of 
the valve for proportioning between two sides. 

2.2. 3.3 Shut-off Valve 

For side 1 of a shut-off valve the valve position decreases from 
Xmax to Xnjin when the temperature of the sensor lump drops below the specified 
"off" temperature. Toff, and increased from Xmin to X,nax when the sensor lump 
exceeds a second specified temperature. Ton- Ton ^n^ist be greater than Toff. 
Side 2 works in reverse of side 1. The valve position increased from X^jp to 
X^ax when the sensor temperature drops below the specified Ton decreases 
from Xniax to X^in when the sensor lump increases above the off temperature, 
Toff- For side 2, Toff must be greater than Ton- Note that, if the shut-off 
valve is a two sided valve with both sides active, the valve is a switching 
valve. 

2. 2. 3. 4 Valve Flow Resistance Calculations 

The valve pressure drop on side one is assumed to be given by: 
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( 56 ) 


AP » 



Where E is an input constant 

W Is the flow through one side of the valve 
X is the valve position (fraction of total possible distance) 
Since flow resistance is AP/W, the valve flow resistance is given by 


(57) 



This value of flow resistance is calculated and added to the other flow 
resistances of the tube prior to performing the operation in equation (53) 
to find the value of the flow' conductor for the tube. 

Valves may be either one way or two way - i.e., 
be one tube or two tubes at the outlet. If only one tube exists on the 
valve outlet the flow resistance is calculated using equation (57) above. 
If a second tube exists, the resistance on side 2 is given by 


P S 


(58) 


2.2.4 Pressure-Flow Network Solution 

As previously stated, the user may subdivide a system flow net- 
work into a main network and subnetwork elements. The elenents which are 
subnetworks to the main network may also contain subnetwork elements but 
the subdivision can go no lower than two levels. 

After the flow conductor values hav^ been obtained by the methods 
described in Sections 2.2.2 and 2.2.3 a set of simultaneous equations are set 
up and solved for the main system and for each subnetwork. The subnetwork 
elements are all solved first and then, their equivalent flow conductor'-value 
is calculated. The value is inserted in the main system network and the 
system solution is obtained. The procedure is repeated until the problem 
is balanced. 

A set of simultaneous equations are obtained by conservation of mass 
at each pressure node for each network and subnetwork. For any node i the 
conservation equation can be written as follows: 
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(59) 




out 




Let 
and 


«1n ' 


nc 


out 




0=1 


Then equation (59) becomes 


;^GF,jtPj - p,l- w, 
0=1 


= 0 i=l,n ( 5 Q) 


Sflji 

^0 

u. 

1 

n 


Where GF- • • = flow conductor between pressure nodes 1 and j 

1 

= pressure at node i 
= pressure at node j 
= flow rate added at node i 
= number of pressure nodes in the subnetwork. 

The above equation is a set of n simultaneous equations for P array. 
Pressure in the system or subsystem may be set at a specified level but 
the last (outlet) node must be specified. Equation (60) may be written 
in matrix form as;. . 

(61) 


Where 


GP 

= c 


"Lgf. 

j ■ ^^12 ■ 


-GFj^ 

- 



.1 


-6F 


n-1,2"'^ 
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n-1 


«1 " '■n 

«2 "n 


Vl*6F„-ll ^1 


is the specified pressure. The above equations are solved for pressures 
at each point in the system and flow rates are then calculated for each 
tube by: 



^'ij 


('i - ^-) 


( 62 ) 


Since the coefficient matrix given by equation (61) is symetric and positive 
definite the efficient square root or Symmetric Cholesky method was pro- 
grammed to obtain the solution. This method is more accurate and faster 
than any other methods studied for this application. 

Since the flow conductors are functions of the flow rate, the set 
of equations given by (61) are solved numerous times on each temperature 
iteration with a net set of GF^j values for each solution. The iteration 
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process continues until the change in the flowrates is within some user 
specified tolerance before proceeding to the next iteration. 

2.2.5 Pump and System Pressure - Flow Matching 

Concurrent with iterating the system flow equation to solution 
on each temperature iteration, the overall system pressure drop and flowrate must b< 
matched to a pump characteristic. Several types of pump characteristics 
are available to the user as options. These are {!) system flow rate 
specified as a constant, (2) system flowrate specified as a known function 
of time, (3) pressure drop specified as a function of the flowrate in a 
tabulated form and (4) pressure drop specified as a function of flowrate 
with a fourth degree polynomial curve. 

The first two options require no balancing of the pump with the 
system. Balancing is required for options (3) and (4) and iterative 
procedures have been devised to obtain the solution of the pump curve 
^ to the system characteristics with as few passes as possible through the 
'^ system pressure/flow balancing loop for these options. The procedures 
” used for these options are described below. 

” 2. 2. 5.1 Tabulated Pump Curve Solution 

T The matching of a tabulated pump pressure rise/ flow characteristic 

- to the system pressure drop/flow characteristic is accompl ished ‘by the 

- following procedure. See Figure 6 to aid in understanding the procedure. 

- Step 1 : The initial flowrate, Wi, at the system inlet is 

r established either from user input on the first 

iteration or the system flow of the previous iteration 
for subsequent iterations. 

Step 2 ; Using W], a solution to the flow network is obtained 
using the methods described in Sections 2.2.2, 2.2.3 
and 2.2.4. Following this solution, AP] is available 
establishing point 1 on the true system characteristic 
curve shown in Figure 6. 

Step 3 : Obtain an equation for the straight line approximation 
of the system characteristic (line 0, 1 for the first 
pass, line 1, 2 for the second pass, etc.) 

APg = C Ws + D 
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Pressure Rise or Drop, AP 


Second Approximation 



FIGURE 6 SYSTEM/PUMP CURVE SOLUTION 
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where C 


AP, - APq 
' Wi - Wo 


0 


APq - 


AP] - APq 


Wi 


w. 


Wo 


APg, Wg are the system pressure drop and flowrate 
values given by the approximate equation 
AP] , W-| are the latest values for system pressure 
drop and corresponding system flowrate 
APq, Wq are the values for system pressure drop and 

corresponding system flowrate for the previous 
pass (These values are zero for the first pass) 

Step 4 : Obtain the equation of the line connecting points a] 

and b-j which is an approximation of the pump characteristic. 

(1) Two points are determined on the pump characteristic 
curve: 

(a) interpolate the tabulated characteristic at Vii 
to obtain APal {See Figure 6) to locate point ai 
at W] , APal- If W] is greater than W^ax* set Wi 
equal to W^tax 3*^*^ ^^al equal to zero. 

(b) reverse interpolate the tabulated characteristic 
at API to obtain Wjj] to locate point b] on the curve. 

If API is greater than AP^ax* ^^1 set to AP^ax 
and Wjj-j is set to zero. 

(2) Determine the coefficients A and B for the equation 


where A 


APp = AWp + B 

- ^Pal 
'^bl " '^1 



^Pal 
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APp» Wp are the pump pressure rise and flowrate as given 
by the approximation. 

Step 5 : Solve the approximate equations obtained in Steps 3 and 4 
to obtain an approximate solution to the system 
characteristic and the pump characteristic (Point N) as 
follows : 



APfj = AW3 + B 

Step 6 : Check the tolerance below where Wf^_i is the previous 
Wn (W] for the first time through) 


Is 


W. 




< .001 


(1) If the above inequality equation is not satisfied repeat 
steps 4 through 6 substituting Wj,j for W-| and 

APh for APi 

(2) If the inequality is satisfied the point SI (Figure 
6) has been located. Continue with step 7. The 
final flowrate is W 2 

Step 7 : Check the following tolerance 


Is 


W2 - 

w. 


TOL 


(1) If the above inequality equation is not satisfied, 
repeat steps 2 through 7 using the value of W 2 
for Wi , 

(2) If the inequality is satisfied, W 2 is the solution 
flowrate. 


* 

TOL is the input pressure solution tolerance described on page 74 


43 



2.2. 5.2 Polynomial Pump Curve Solution 

When the user describes the pump curve with a polynomial curve 
fit, the pump characteristic is described by the relation 

APp = Ao + A^W + A 2 W^ + A 3 W^ + 

When this option is used, the procedure for matching the pump characteristic 
to the system characteristic is identical to that described 
in Section 2. 2. 5.1 for the tabulated pump characteristic except Steps 4 and 
5 are replaced with the following: 

Step 4 : Obtain the coefficients of the 4th order equation 
to be solved 
Si nee : 

AP - AP = 0 
p s 

APg = C Ws + D (C and D are obtained from Step 3) 

AP„ = Ao + A,W„ + A^W^ + A,W^ + A.wf 
p Ip 2p 3p 4p 

The solution occurs when 

»4Pp 

Then the equation for Wj^ is 

• (Ao-D) + (A^-C) + A 2 W 2 + A 3 W^ + A^WjJ = 0 

Step 5 : Solve the equation for W|^ using the Newton-Raphson 
Method of solution for a fourth order polynomial 

The remaining steps are identical to that given in Section 2. 2. 5.1. 
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3.0 MODIFICATIONS TO SINDA SUBROUTINES 

3.1 Preprocessor Modifications 

Subroutine IMBED was written to convert actual conductor numbers, 
node numbers, arra^y numbers or constant numbers which are input in the array 
data to their relative location in the G, T, A or K arrays respectively. 

The number to be converted in the array data is entered with an * followed 
by G, T, A, or K depending on the type of relative location desired. For 
instance, an array with the following input 
12, *A10, *T5,*6101, END 

would be changed so that the location of AID in the A array would replace *A10 
in the A12+1 location. The relative node number of actual node 5 would replace 
the *T5 and the relative conductor number of actual conductor number 101 would 
-be placed in A12+3. The converted array might read 
12, 102, 3, 21, END 

Whe>e AlO is located at location 102 in the A array, actual node 5 has relative 
’number 3, and actual conductor 101 has relative conductor 21. 

: ■ Subroutine IMBED is called from CODERD. Listings of IMBED, CODERD, 

and a modified overlay are supplied in Appendix A. 

'3.2 User Subroutine Modifications 

--- A modification to the SINDA execution subroutine, CNFAST, was 
required to make it compatible with the radiant interchange subroutine, 

RADIR. This minor modification was required because the manner in which 
temperatures were calculated when the problem time increment is larger than 
the maximum convergence criterion for a given node was not compatible with 
the manner in which the convergence criteria information was carried over 
to CNFAST. A listing of the modified version of CNFAST is supplied in Appendix A 
A modification was made to user subroutine TPRINT to print 
temperatures in increasing order of actual node numbers. This modification 
increased the dynamic storage requirement to two locations for each node 
in the network. 
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4.0 USER SUBROUTINES 

The capabilities described in Section 2.0 are available to the 
SINDA user through user subroutines which were added to the existing SINDA 
library^. This section presents a description and user input requirements 
for each subroutine. Table 1 sunmarizes the subroutines and the page that 
each user description is found. 

The subroutine inputs rely heavily upon the capability to convert 
from actual array, constants, node, and conductor numbers to relative numbers 
in the array data. To use this capability the user may supply an actual array 
number, node number o conductor number by preceding the actual number 
with *A, *K, *T, or *G respectively. This causes the preprocessor to replace 
the entry with the relative number. Consider the example for array number 
2. shown below. 

2, *A14, *T5, *G7, END 

In this example, following the preprocessor phase, *A14 will be replaced by 
the location in the A array of the Array No. 14 data, *T5 will be replaced 
by the relative node number for actual node No. 5, and *G7 will be replaced 
by the relative conductor number for actual conductor No. 7. This feature 
is used extensively for the input to user subroutines described below and 
is described in more detail in Section 3.1. 



TABLE 1 

NEW SINDA USER SUBROUTINES 


A. Convection Conductor Calculation Subroutines 
CONVl 

C0NV2 

C0NV3 

B. Flow Conductor Calculation Subroutines 
FLOCNl 

FL0CN2 

C. Time Variant Condcutor Calculation Subroutines 
CONDTl 

C0NDT2 

D. Enclosure Radiation Analysis Subroutines 
RADIR 

RADSOL 

£. Heat Exchanger and Heater Analysis Subroutines 
HXEFF 
HXCNT 
HXCROS 
HXPAR 
HEATER 

G. Cabin Analysis Subroutines 
CABIN 

H. Pressure/Flow Balance Subroutine 
PFCS 

I. Input/Output Subroutines 
HSTRY 

NEWTMP 

FLPRNT 

GENOUT 

GENI 

GENR 

FLUX 
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SUBROUTINE NAME; 


CONVl 


PURPOSE : 

CONVl calculates conductor values using the relations for convection 
heat transfer for flow in a tube. The relations used to obtain the film co- 
efficient, h, are given by equations 2 thru 4 in section 2.1.1, depending 
on the flow regime (l^inar, transitional or turbulent flow), h is then 
multiplied by the input area for heat transfer to obtain the conductor value. 

The conductor valve is stored in the input conductor location. Any number of 
conductors may be calculated with a single call. The flowrate array and the 
fluid properties data are addressed to tie the convection calculations with 
the pressure-flow solution. The first argument, AFLOW, is the first argument 
in the PFCS routine and identifies the flowrate array and fluid type data array 
needed by CONVl. APR is an array which references the specific heat, density, 
viscosity and thermal conductivity array. ADAT supplies other information 
needed. 

f. ^ ^ 

RESTRICTIONS : 

Should be called in the VARIABLES 1 block so that hA values are obtained 
every iteration. 

CALLING SEQUENCE : 

CONVl (AFLOW, APR, ADAT) 

where: 

AFLOW is is first argument of the PFCS call and is of the following format; 

AFLOW(IC), AW, AP , AGF, AVP, AIFR, AFT, AFR, APD, END 
AW' - array of flowrates per tube in the system 

AP array of pressures per pressure node in the system 

AGF array of pressure conductors per tube 

AVP array of valve positions for all valves in the system 

. AIFR array of imposed flowrate per node 

AFT array of fluid type data 

AFR array of user added flow resistance per tube 

APD array for output of pressure drops per tube 

APR is the second argument of CONVl and is also an array in the PFCS data 
input which contains fluid properties. 

It is of the following format: APR(IC), CP, RO, MU, KT, GC, END 
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CP - 


RO - 


MU - 


KT - 


GC - 
ADAT - 


NGi - 
AHT - 
ITUBE 
NFL - 
ITYPE 
X 

FI - 
F2 - 




is a doublet temperature dependent specific curve when input with 
the *A format 

is a constant specific heat valve if input as a real constant 
is a doublet temperature dependent density curve when supplied 
using *A 

is a constant density valve when supplied as a real constant 
is a doublet temperature dependent viscosity curve when supplied 

using *A ... 

is a constant viscosity valve when supplied as a real constant 
is a doublet temperature dependent thermal conductivity curve when 
supplied using *A 

is a constant conductivity valve when supplied as a real constant 
is the gravitational constant in the probl'em under consideration 
is an argument to CONVl which contains convection information. It 
has the following format: 

ADAT(IC), NGi, AHTi, ITUBEi , NFL] . ITYPEi . X], Fli, F2i 

II I I till 

II I • I I I I 

II I I lilt 

NGn, AHTn, ITUBEn, NFLn, ITYPEn. Xn, Fin, F2n 
END 

is actual conductor number of the ith set of data 

is the area for heat transfer 

is the tube number for obtaining flowrate 

is the actual fluid lump number 

is the fluid lump type number 

is the entry length 

is the laminar fully developed coefficient 
is the laminar entry length coefficient 
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SUBROUTINE NAME: 


C0NV2 


PURPOSE : 

C0NV2 calculates convection conductor values from a user Input curve of 
Stanton number (St) vs Reynolds number (Re). The film heat transfer coefficient 
is obtained by (1) interpolating a curve of St«Pr^^^ versus Re to obtain 
St‘Pr2/3 and (2) using the relation h = k/D (St*Pr^/3)*Re*Pr^'^^ to obtain 
h, h is multiplied by the heat transfer area to obtain the conductor values 
which is stored in the proper conductor location. The flow data used by 
subroutine PFCS is referenced by the arguments AFLOW and APR to obtain flowrate, 
type data and fluid property data thus tying the convection and flow analysis 
together. 

RESTRICTIONS : 

Should be called in the VARIABLES 1 block so that hA values are calculated 
on each iteration prior to the temperature calculation. 


CALLING SEQUENCE : 

C0NV2( AFLOW, APR, ADAT) 


AFLOW - is the first argument of the PFCS call and is of the following 
format: 


AFLOW(IC), AW, APR, AGF, AVR, AIFR, AFT, AFR, APD, END 
AW - array of flowrates per tube in the system 

APR - array of pressures per pressure node in the system 

AGF - array of pressure conductors per tube 

AVP - array of valve positions for all valves in the system 

AIFR - array of imposed flowrate per node 

AFT - array of fluid type data 

AFR - array of user added flow resistance per tube 

APD - array for output of pressure drops per tube 

APR - is an array in the PFCS data input which contains fluid properties. 

It is of the following format: 


APR(IC), CP, RO. MU, KT, GC, END 


CP - is a doublet temperature dependent specific curve when input 
with the *A 

- is a constant specific heat valve if input as a real constant 
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RO 


MU 


KT 


GC 

ADAT 


NG{ 

AHT 

ITUBE 

NFL 

ITYPE 

AHST 


- is a doublet temperature dependent density curve when supplied 
using *A 

is a constant density value when supplied as a real constant 

- is a doublet temperature dependent viscosity curve when supplied 
using *A 

- is a constant viscosity valve when supplied as a real constant 

- is a doublet temperature dependent thermal conductivity curve 
when supplied using *A 

- is a constant conductivity value when supplied as a real constant 

- is the gravitational constant in the problem under consideration 

- is an argument to CONVl which contains convection information. 

It has the following format: 

ADAT(IC), NG], AHTl, ITUBE], NFL], ITYPE], AHSTl 

I I I I I > 

II I I i * 

I I I I I I 

NGn, AHTn, ITUBEr,, NFLn, ITYPEp, AHSTp 
END 

- is conductor number of the ith set of data 

- is the area for heat transfer 

- is the tube number for obtaining flowrate 

- is the fluid lump number 

- is the fluid lump type number 

- is a doublet curve of ST(PR)^‘^^vs Re 
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SUBROUTINE NAME: 


C0NV3 


PURPOSE : 

CONV3 calculates convection conductor values by Interpolating a user 
supplied curve of heat transfer coefficient, h, versus tube flowrate. The 
conductor is then obtained by multiplying h times the area, A. A large number 
of conductors may be processed with a single call to C0NV3. The flow data used 
by subroutine PFCS is referenced by the argument AFLOW to obtain flowrate 
and type data. 


RESTRICTIONS : 

C0NV3 should be called from the VARIABLES 1 block to obtain updated 
hA values on each iteration. 


CALLING SEQUENCE : 

C0NV3 (AFLOW, ADAT) 


where: 

■ 

AW 

APR 

A6F: 

AVP 

AIFR 

AFT: 

AFR 

AP.D 

ADAT 


NGi 

AHT 

ITU8E 

AHW 


- is the first argument of the PFCS call and Is of the following format: 
AFLOW(IC), AW, APR, AGF, AVR, AIFR, AFT. AFR, APD, END 

- array of flowrates per tube in the system 

- array of pressures per pressure node in the system 

- array of pressure conductors per tube 

- array of valve positions for all valves in the system 

- array of Imposed flowrate per node 

- array of fluid type data 

- array of user added flow resistance per tube 

- array for output of pressure drops per tube 

- is an argument to CONVl which contains convection information. 

It has the following format: 

ADAT(IC), NGi, AHT], ITUBE] , AHWi 

III I 

II I I 

II I i 

NGn, AHTn, ITUBEn, AHWn, END ^ 

- is conductor number of the ith set of data 

- is the area for heat transfer 

- is the tube number for obtaining flowrate 

- is a doublet array of heat transfer coefficient vs flowrate 
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SUBROUTINE NAME; 


FLOCNl or FL0CN2 


PURPOSE : 

Subroutine FLOCNl and FL0CN2 calculate thermal conductor values 
required for thermal characterization of fluid flowing down a tube. The 
conductor values are obtained by multiplying the tube flowrates times the 
specific heat for each of the conductors identified in the ADAT array. Both 
subroutines reference the flowrate array, AW, and FLOCNl references the ACP 
array which gives the specific heat vs temperature relationship. FL0CN2 
assumes a constant value for specific heat. 

The conductor values referenced in the ADAT array must also be 
supplied in the CONDUCTOR DATA block as one-way conductors with the proper 
connections identified. Any dummy value may be supplied for the initial flow 
conductor values since these values will be replaced following the first call 
to FLOCNl or FL0CN2. These subroutines are called from VARIABLES 1. 

RESTRICTIONS : 

Must be called from VARIABLES 1. 

CALLING SEQUENCES : 

FLOCNl (AW, ACP, ADATl ) or FL0CN2 (AW, CP, ADAT2) 

where 

AW - is the array of flowrates per tube also referenced In 

subroutine PFCS 

ACP - is a doublet array of specific heat versus temperature 

Cp - is a constant value of specific heat 

ADATl - Is the array which identifies the conductor, the corresponding 

uostream lump and the tube number for each conductor. It 
Is of the format: 

ADATl, NGl, UPLi, ITUBEi 
NG2, UPL?, ITUBE? 

I I I 

t I I 

* .1 I 

NGn, UPLn, ITUBEn. END 
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ADAT2 

N6{ 

UPLi 

ITUBEi 


W'-'r'*- 


- is the array which identifies the conductor, number and 
the tube number for each conductor. It is of the format: 
ADAT2, NGl, ITUBEI. NG2, ITUBE2, - NGn, ITUBEn, END 

- is the ith conductor number (the *G notation is used) 

- is the upstream lump number for conductor number NGi 
(The *T notation is used) 

- is the tube number which contains the flow for the ith 
conductor uj > Cp product. For flow splitting or mixing 
junctions, ITUBEi should be the number of the connect tube 
containing the smallest amount of flow. For example, 

for a splitting junction the flow conductor which crosses 
the junction should contain the downstream tube. For a 
mixing junction ITUBE should be the upstream tube. 
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SUBROUTINE NAME: 


CONDTl or C0NDT2 


PURPOSE : 

Subroutines CONDTl and C0NDT2 calculate the value of conductance 
values as a product of a time variant argument W{t) and a temperature variant 
or constant argument Cp. The value of Cp is temperature dependent with 
CONDTl and is constant for C0NDT2. The subroutines were written primarily 
for the purpose of evaluating flow conductors for the case of flowrate 
a given function of time. However, they may be used for other time variant 
conductor applications. 

RESTRICTIONS : 

Should be called from VARIABLES 1, 

CALLING SEQUENCE ; 

CONDTl (ADATl) or C0NDT2 (ADAT2) 
where ADATl is of the form 

ADATl , NGl , NLTl , ATIMEl , ATEMPl 
N62, NLT2, ATIME2, ATEMP2 

» i » * 

I I I « 

III I 

NGn, NLTn, ATIMEn, ATMEPn, END 
and ADAT2 is of the form: 

ADAT2, NGl, ATIMEl, CPI 
NG2, ATIME2, CP2 

f 1 < 

III 
I I * 

NGn, ATIMEn, CPn, NED 
The following definitions apply to the above. 

fIGi - the conductor number of the ith conductor addressed in ADATl 

or ADAT2. The *G notation should be used. 

NL 7 i - the lump whose temperature will be used to interpolate 

the ATEMPi array to obtain the Cp constant. The *T notation 
should be used. 

ATIMEi - the time variant array for determining the value of W(t) 

for the ith conductor. The *A notation should be used. 
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ATEMPi 


Cp 


- the temperature variant array which is interpolated with 
the temperature of lump NLTi to obtain Cp in CONDTl. The 
conductor is calculated as the value of W(t)*Cp. The 

*A notation should be used. 

- the constant value which will be multiplied by W(t) from 
the ATIME.i array to obtain the conductor value for C0NDT2. 
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SUBROUTINE NAME: 


RADIR 


PURPOSE : 

RADIR calculates the script-F values for infrared radiation heat transfer 
within an enclosure and uses these values to obtain the heat transfer 
during the problem. Several temperature nodes may be combined on a 
single surface for radiation heat transfer purposes. Also, the user may 
analyze problems with specular, diffuse or combinations of specular and 
diffuse radiation. See Section 2. 1.6,1 for definitions and detailed 
description of methods. 

RADIR calculates the script-F values on the initial call. This is per- 
formed by the procedure outlined in Section 2. 1.6.1, Equations 23, 25 
and 31. These values replace the EFT values in the SC array for future 
use. The heat flux values are then calculated on all iterations by: 

(1) Calculating the temperature of each surface using equation 34 

(2) Calculating the absorbed heat for each node by the relation 
of equation 33 

The value given by equation 35 is added to the conductor sum for each 
node so that the proper convergence time increment may be obtained. As 
many enclosures as desired may be analyzed by each enclosure but each en- 
closure requires a different call to RADIR. RADIR must be called in VARIABLES 1. 

RESTRICTIONS : 

Must be called from VARIABLES 1 ^rface nodes must be boundary nodes 
CALLING SEQUENCE : 

I^DIR (A(IC)). 

Where A is of the following format: 

A(IC),SN,SE,SR,SC,NA,SP,END 

SN,SE,SR,SC,NA, and SP are actual array numbers input using the *A procedure 
and are of the following formats 

SN(IC),n,SNl ,SA1 ,NN1 ,SN2,SA2,NN2 SNn,SAn,NNn,END 

SE(IC),SE1 ,SE2 SEn,END 

SR(IC),SR1 ,SR2 SRn,END 

SC(IC) ,SNF1 ,SNT1 ,EFT1 ,SNF2,SNT2,EFT2, — SNFm,SNTm,EFTm,END 
NA(IC),NN0(1 ,1 ) ,AN(1 ,1 ) ,NN0(1 .2) ,AN{1 ,2)— NN0(1 .NNl ) ,AN(1 ,NN1 } 

NN0(2,1) ,AN(2,1 ) ,NN0(2,2) ,AN{2,2)— NN0{2 ,NN2) ,AN(2,NN2) 

I III I 1 

I t I I t I 


NN0(n ,1 ) ,AN(n ,1 ) ,NN0(n ,2) ,AN(n,2)-NN0(n ,NNn) ,AN(n ,NNn) .END 
SP(IC), SPACE, NSPACE, END 
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The following definitions apply in the above calling sequence: 


A" 

SN 

SE 

SR 

SC 

NA 

spr 

n: 

SNl,,_SN2....SNn 

,SA1 ,SA2 SAn 

NN1.NN2 NNn 

SE,l:,SE2,....SEn 

“SRl ,SR2, SRn 

S_NF1,SNT1,EFT1 

NN0(X,Y) 

AN{X,Y) 

NSPACE 

m 


Array idenitifcation for the array which identi- 
fies the other arrays containing the data 

Array number for the array containing surface 
numbers and areas 

Array number for the array containing the sur- 
face emissivities 

Array number for the array containing the sur- 
face reflectivities 

Array number for the array containing the sur- 
face connections data 

Array number for the array containing the tempera- 
ture node numbers and areas 

Array number for the array containing the space 
which is used for obtaining script FA values and 
for subsequent temperature calculations 

The number of surfaces 

Node number for surfaces - must be boundary nodes 

Total area for each surface 

Number of temperature nodes on each surface 

Emissivity values for each surface 

Diffuse reflectivity values for each surface 

Connections data: Surface number from, surface 

number to, E value from SNFlto SNTl , etc. 

Temperature node numbers on surfaces; Node 

number Y on surface X 

Area of node Y on surfaceJX 

Number of spaces needed to store script-FA 

values - NSPACE must be an integer values 

of n *nCn+ll/2 

The number of surface connections 
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SUBROUTINE NAME; 


RADSOL 


PURPOSE : 

RADSOL calculates a pseudo script-F for radiation from an external source 
entering an enclosure and uses these values to calculate the net heat 
transfer to each node due to the entering source. A number of temperature 
nodes may be combined on a single surface for radiation purposes. Also, 
problems with specular, diffuse, or combinations of specular and diffuse 
radiation may be analyzed. Section 2. 1,6. 2 should be consulted for defini- 
tions and descriptions of methods. 

RADSOL calculates the pseudo script-F values on the initial call. This 
is performed by equations 38,, 40, and 44 of section 2. 1.6. 2. The values 
are stored in the EFT values of the SC array supplied by the user.' The heat 
flux values are then calculated on each iteration by equations 45 and 46. 

The user may analyze as many enclosures as desired by sJpplying a call statement 
for each enclosure. Also, a user may analyze several wave length bands by 
supplying a call to RADSOL for each wave length band. 

RESTRICTIONS ; 

Must be called from VARIABLES I; Surface nodes must be boundray nodes 
CALLING SEQUENCE : 

RADSOL (A(IC)) • 

Where the A array is of the following format: 

A(IC),SN,SE,SR,HT,SC,NA,SP,END 

SN,SE,SR,HT,SC,NA, and SP are actual array numbers- input using the *A pro- 
cedure and are of the following formats: 

SN(IC), n,SNl,SAl ,NN1 ,SN2,SA2,NN2, Snn.SAn.NNn ,END 

SE(IC),SE1 ,SE2, SEn,END 

SR( IC) ,SR1 ,SR2 — SRn ,END 
HT(IC) ,SHT1 ,SHT2 SHTn ,END 

SC(IC),SNF1,SNT1,EFT1 ,SNF2,SNT2,EFT2 , — SNFm,SNTm,EFTm,END 
NA(IC) ,NN0(1 ,1 ),AN(1 ,1 ) ,NN0(1 ,2) ,AN(1 ,2) — NN0(1 ,NN1 ) ,AN(1 ,NN1 ) , 

NN0(2,1 ) ,AN(2,1 ) ,NN0{2,2) ,AN(2,2)— NN0(2,NN2) ,AN(2,NN2) , 

fill I I 

II I a I I 

till I I 

NN0(n,l),AN(n,l),NN0(n,2),AN(n,2)— NN0(n,NNn),AN(n,NNn) ,END 
SP{IC), SPACE, NSPACE, END 
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The following definitions 
A 

SN 

SE 

SR 

HT 

SC 

-NA-'-- 

SP^ . 

SNl,SN2,...SNn 

SAl ,SA2,.,,SAn 
NNl ,NN2,...NNn 
SEl,SE2,...SEn 
SRl,SR2,...SRn 
SHTl,SHT2....SHTn 

SNFl ,SNT1,EFT1 

NN0(X,Y) 

AN(X,Y) 

NSPACE 


apply in the above calling sequence 

Array identification for the array which 
identifies the other arrays containing the 
data 

Array number for the array containing surface 
numbers and areas 

Array number for the array containing the 
surface emissivities 

Array number for the array containing the 
surface reflectivities 

Array number for the array containing the 
incident heat curves or constant heat flux 
values 

Array number for the array containing the 
surface connections data 

Array number for the array containing the 
temperature node numbers and areas 

Array number for the array containing the 
space which is used for obtaining script values 
and for subsequent temperature calculations 

Node number for surfaces ;must be boundary 
nodes 

Total area for each surface 

Number of temperature nodes on each surface 

Emissivity values for each surface 

Diffuse reflectivity values for each surface 

Incident heat flow on surfaces; may identify 
curves containing incident values vs time 

Connections data: Surface number from surface 

number to, E value from SNFl to SNTl , etc. 

Temperature node numbers on surfaces: Node 

number Y on surface X 

Area of node Y on surface X 

Number of spaces needed to store script- FA 

values - NSPACE must be an integer values of 

n/2(n+l) 
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SUBROUTINE NAME: 


HXEFF 


PURPOSE : 

This subroutine obtains the heat exchanger effectiveness either from a 
user constant or from a biariant curve of effectiveness versus the flow 
rates on the two sides. The effectiveness thus obtained is used with the 
supplied flow rates, inlet temperatures and fluid properties to calculate 
the outlet temperatures using the methods described in Section 2. 1.3. 4. 

The user may specify a constant effectiveness by supplying a real number 
or may reference and array number to specify the effectiveness as a 
bivariant function of the two flow rates. The user also supplies flow 
rates, specific heat values, inlet temperatures and a location for the 
outlet temperatures for each of the two sides. The flow rate array may 
he referenced to obtain flow rates and the temperature array may be used 
for temperatures. The specific heat values may be supplied as a temperature 
dependent curve or a constant value may be supplied. 


RESTRICTIONS : 

HXEFF should be called in the VARIABLES 1 block. The value for EFF, the 
^rst argument must never be zero. Toutl T’out2 be boundary nodes. 

GALLING SEQUENCE : 

HXEFF(EFF,W1 .W2.CP1 ,CP2,T1N1 ,T1N2,T0UT1 ,T0UT2) 


Where EFF 


W1 ,W2 
CP1,CP2 


TIN1,TIN2 - 
T0UT1,T0UT2 - 


is (1) the effectiveness if real, (2)a curve 
number of a bi variant curve of effectiveness , 
versus W1 and W2 if an array 

are the flow rates for side 1 and 2 respectively. 
May reference the flow rate array, AW+I where 
I is the tube number 

arCjthe specific heat value for side 1 and 
side 2 fluid respectively. Constant values 
may be input or arrays may be used for tempera- 
ture dependent properties 

are inlet lump temperatures - Usually T(INl) and 
T(IN2) where INI and IN2 are the inlet lumps 
on side 1 and side 2 

are the outlet lump temperature locations sides 1 
and 2 where the calculated values will be stored 
Must be boundary nodes 
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SUBROUTINE NAME: 
PURPOSE: 

HXCNT 

This subroutine calculates the heat exchanger effectiveness using the relation 
described in Section 2. 1.3.1 for a counter flow type exchanger. The value of UA 
used in the calculations may be specified as a constant by supplying a 
real number or it may be specified as a bi variant function of the two 
flow rates by referencing an array number. The user also supplies flow 
rates, specific heat values, inlet temperatures and a location for the 
outlet temperatures for each of the two sides. The flow rate array may 
be referenced to obtain flow rates and the temperature array may be used 
for temperatures. The specific heat values may be supplied as a temperature 
dependent curve or a constant value may be supplied. 

RESTRICTIONS: 


HXCNT should be called in the VARIABLES 1 block. The value for UA, the 
first argument must never be zero. T^utl Tq^^ 2 •"^st be boundary nodes. 

CALLING SEQUENCE: 


iraCNT(UA,Wl,W2,CPl,CP2, 

T1N1.T1N2,T0UT1,T0UT2) 

•^ihere UA 

is (1) the heat exchanger conductance if real, 
(2) a curve number of a bi variant curve of 
conductance versus W1 and W2 if an array 

W1,W2 

are the flow rates for si del and side 2 respectively. 
May reference the flow rate array, AW+I where 
is the tube number 

CP1.CP2 

1 ^ L ^ CT ♦ W 

are the specific heat values for side 1 and 2 
fluid respectively. Constant values may be 
input or arrays may be used for temperature 
dependent properties 

T0UT1-T0UT2 

are. the outlet lump temperature locations (sides 
1 and 2) where the calculated values will be stored 
Must be boundary nodes 
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SUBROUTINE NAME: 


HXCROS 


PURPOSE : 

This subroutine calculates the heat exchanger effectiveness using the relations 
described in Section 2. 1.3. 3 for a cross flow tyne exchanoer. The value of UA used 
in the calculations may be specified as a constant by supplying a real number 
or it may be specified as a bi variant function of the two flow rates by 
referencing an array number. Any one of the following four types of cross 
flow exchangers may be analyzed (see Section 2. 1.3. 3 for the relations): 

1) Both streams unmtxed 

2) Both streams mixed 

3) Stream with smallest MCp product unmixed 

4) Stream with largest MCp product unmixed 

The type is specified by the last argument in the call statement. The user 
also supplies flow rates* specific heat values, inlet temperatures and a 
location for the outlet temperatures for both sides. The flow rate array 
may be referenced to obtain flow rates and the temperature array may be 
used for temperatures. The specific heat values may be supplied as a 
temperature dependent curve or a constant value may be supplied. 

RESTRICTIONS : 

HXCROS should be called in the VARIABLES 1 block. The value for UA, the 
first argument must never be zero. Tgutl ^out2 boundary nodes. 

CALLING SEQUENCE : 

HXCR0S(UA,W1 ,W2,CP1 ,CP2,T1N1 ,T1N2,T0UT1 ,T0UT2,K) 

is (1) the heat exchanger conductance if real, 

(2) a curve number of a bi variant curve of 
conductance versus W1 and W2 if an array. 

are the flow rates for side 1 and side 2 
respectively. May reference the flow rate 
array, AW+I where I is the tube number 

are the specific heat values for side 1 and 
side 2 fluid respectively. Constant values 
may be input or arrays may be used for tempera- 
ture dependent properties 

are inlet lump temperatures - Usually T(INl) 
and T(IN2) where INI and IN2 are the inlet 
lumps on side 1 and side 2 

are the outlet lump temperature locations (sides 1 & 2) 
where the calculated values will be stored 
Must be boundary nodes 


Where UA 

W1 ,W2 
CPI ,CP2 

TIN1.TIN2 
TOUTl ,T0UT2 
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K is the code specifying type of cross flow exchanger: 

Both streams uninixed: K=1 
Both streams mixed: K=2 

Stream with small WCp Unmixed: K=3 

Stream with large WCp Unmixed: K*4 
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SUBROUTINE NAME: 


HXPAR 


PURPOSE: 

This subroutine calculates the heat exchanger effectiveness using the relations 
described in Section 2. 1.3. 2 for a parallel flow type exchanger. The value of UA 
used in the calculations may be specified as a constant by supplying a 
real number or it may be specified as a bivariant function of the two 
flow rates by referencing an array. The user also supplies flow rates, 
specific heat values, inlet temperatures and a location for the outlet 
temperatures for each of the two sides. The flow rate array may be 
referenced to obtain flow rates and the temperature array may be used for 
temperatures. The specific heat values may be supplied as a temperature 
dependent curve or a constant value may be supplied. 

RESTRICTIONS: 


HXPAR should be called, in the VARIABLES 1 block. The value for UA, the 

first argument must never be zero. Toutl "^out2 boundary temperatures. 

CALLING SEQUENCE: 


HXPAR(UA,W1 ,W2,CP1 ,CP2,T1N1 ,T1N2,T0UT1 ,T0UT2) 

Where UA is (1) the heat exchanger conductance if real, 

(2) a curve number of a bivariant curve of 
conductance versus W1 and W2 if an array. 

W1 ,W2 are the flow rates for side 1 and 2 respectively. 

May reference the flow rate array ,AW+I where 
I is the tube number 


CP1.CP2 


TIN1.TIN2 
TOUTl ,T0UT2 


are the specific heat values for side 1 and 
side 2 fluid respectively. Constant values 
may be input or arrays may be used for tempera- 
tures dependent curves. 

are inlet lump temperatures - Usually T(lNl) 
and T(IN2) where INI and IN2 are the inlet 
lumps on side 1 and side 2 

are the outlet lump temperature locations Csides 
1 and 2) where the calculated values will be stored 
(should be boundary temperatures) 
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SUBROUTINE NAME; 


HEATER 


PURPOSE : 

This siibroutine simulates an electrical heater with a control system which 
turns the heater on when the sensor lump temperature falls below the 
"heater on" temperature TON, and turns the heater off when the sensor lump 
rises above the heater off temperature, TOFF. When the heater is on, the 
input Q value is added to the Q location specified by the user. When the 
heater is off, no heat is added. 

RESTRICTIONS; 

HEATER must be called in the VARIABLES 1 block. 


CALLING SEQUENCE : 
HEATER(Q,QHT,KODE,TSEN,T0N,TOFF) 


Wheren TSEN is 

TON is 

TOFF is 

QHT is 

Q is 


the sensed temperature 

the heater on temperature 

the heater off temperature 

the heater heat rate 

the location for storing the heat 


KOBE is an integer variable set by HEATER 
= 1 if the heater was "on" at last call 
= 0 if the heater was "off" at the last call 
(User sets KODE for first call) 
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SUBROUTINE NAME; 


CABIN 


PURPOSE : 

This subroutine performs a thermal and mass balance on a cabin air system. 
The cabin air is assumed to be a two component gas mixture with one con- 
densible component and one noncondensible component. The cabin air is 
assumed to be well mixed so that the temperature and specific humidity are 
constant throughout. The cabin may contain any number of entering streams 
each with different temperature and humidity conditions. The cabin air 
may transfer heat to any number of nodes in its surroundings with the heat 
transfer coefficient obtained by one of the the three options: 

1. User input coefficient 

2. Relations for flow over a flat plot 

3. Relations for flow over a tube bundle 

The relations describing the second and third options are given in Section 
2.1.5. The mass transfer coefficient for determining the rate of condensa- 
tion or evaporation is determined by the Lewis relation which relates the 
mass transfer coefficient directly to the convection heat transfer coeffi- 
cient. By the Lewis Relation* if the diffusion coefficient is approximately 
equal to the thermal diffusivity, the Sherwood number is approximately equal 
to the Nusselt number, thus giving a direct relation. (See Section 2.1.5 
for details). Mass and heat transfer rates are determined at each node 
that interfaces the cabin gas as well at entering and exiting streams and 
a new cabin gas temperature and humidity is determindd each iteration based 
upon the heat and mass balance. An account is kept of the condensate pn the 
walls when Condensation occurs but the condensate is assumed to remain 
stationary and not flow to other wall nodes. 

Limits are applied when necessary to prevent more condensation than the 
vapor existing under severe transient condition and to prevent evaporation 
of more liquid than exists at each wall lump. 

As many cabins as desired may be analyzed in a given problem, but each must 
contain separate input information. 

RESTRICTIONS : 

CABIN must be called in VARIABLES 1. 

CALLING SEQUENCE : 

CABIN(A(IC) TC, TC, K1 , K2) 

The following definitions apply to the above calling sequence: 

A is an array containing arrays numbers which 

contain cabin input information 
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TC The cabin gas temperature which must be a 

boundary node 

K1 ,K2 Storage locations needed by CABIN 

The A array has the following format where the *A procedure is used: 
A(IC),IF,PR,CN.H,FP.TB,SP,END 


Where IF 


PR 


CN 


H 


FP 


Identifies an array containing the entering flow 
rate information. The format of the array is: 

IF(IC).NS.FR^.PSI.TE^,FR2,PSl2.TE2— -FR^g.PSI^^JE^g 

Identifies an array identifying array numbers 
for property values. The format of the array 
isl 

PRC.IC) .NFLC .NMUO , NMUV ,NCP0 ,NCPV ,NK0 ,NKV »NLAT 

Identifes an array containing pertinent constants. 
The format of the array is: 

. CJ1CLCJ,RA,RV,VC,PC,XC,WV,PSIC,P0,T0,C0NV 

Identifies an array containing node numbers 
and convection heat transfer coefficient 
values for nodes surrounding the cabin gas. 

The format of the array is: 

H(lC),LNi, HAi, LN2, HA 2 , INpi , HApi 

I ' 

Identifies an array containing node numbers and 
information to permit calculation of convection 
coefficients for flat plates. The format is: 


TB 


SP 


FP(,IC) ,LN^ ,XX^ ,XI^ ,AI^ ,VIW0^ ,LN2,XX2,Xl2.Al2, 


VIN02.- 


‘ 'Identifies an array containing node numbers and 
information to permit calculation of convection 
coefficients for tube bundles. The format is: 


TB(IC),LN^,DI^ AI^ ,VIW0^ ,LN2,Dl2,Al2.VIW02, 

DI„3,AI„3.VIW0n3 

Identifies an array which contains working space 
equal to or greater than three times the sum 
of the number of nodes with input heat transfer 
coefficients plus the number using flat plot 
relations plus the number using tube bundles. 


The following symbol definitions apply in the above: 
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Number of incoming streams 

Entering flow rate for stream i 

Specific humidity for entering stream i 

Temperature of entering stream i 

Curve number for circulation flow rate vs time 

Curve number for noncondensible viscosity vs 
temperature 

Curve number for condensible viscosity vs 
temperature 

Curve number for noncondensible specific heat 
vs temperature 

Curve number for condensible specific heat vs 
temperature 

Curve number for noncondensible thermal conduc- 
tion vs temperature 

Curve number for condensible thermal conduction 
vs temperature 

Curve number for latent heat of condensible vs 
temperature 

Gas constant for non-condensible component 
Gas constant for condensible component 
Cabin volume 
Cabin Pressure 

Molecular weight ratio, Mv/Mo 
Initial vapor weight in cabin 
Initial specific humidity for cabin 
Cabin wall lump 

Heat transfer coefficient times area 

Number of wall lumps which have input HA values 

Number of wall lumps which have HA calculated 
by flat plate relations 

Number of wall lumps which have HA calculated 
by tube bundle relations 
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Distance from leading edge for flat plate 
heating for ith flat plate node 

Length of flat plate in flow direction for ith 
flat plate node 

Heat transfer area for flat plate or tube node 

Tube outside diameter for tubes in the bundle 
for ith tube node 

Ratio of velocity at the lump to the circulation 
flow rate 

The reference temperature to be used for esti- 
mating the saturation pressure of the condensi- 
ble component. Should be near the range of 
saturation temperature expected 

The saturation pressure at To for the condensible 
component 

Conversion factor to make the quantity XLAM/Rv/To 
dimensionless where XLAM is the latent heat of 
vaporization and Rv is the gas constant for the 
vapor. If XLAM is BTU/lb, Rv is FT-LB/°R and 
To is '='R, .C0NV=778. 



SUBROUTINE NAME: 


PFCS 


PURPOSE : 

Subroutine PFCS determines the flow distribution in a set of general 
parallel/series fluid flow tubes so that the pressure drop values between 
any parallel flow paths are equal and flow Is conserved. The following effects 
are included in the pressure drop calculations: 

(1) pipe flow friction 

(2) orifices and fittings 

(3) valves 

The effect of temperature dependent properties are included in the calculations. 
The properties are evaluated at the temperature of each fluid lump in each tube 
in evaluating the flow resistance when setting up the equations to be solved. 

A balance is made betv/een the flow/pressure drop characteristics of the system 
and the flow/pressure rise of a pump for each system concurrent with the system 
pressure flow solution to obtain the incomming system flowrate. A detailed 
discussion of the equations and techniques used are described in Section 2.2. 
General flow charts of PFCS and supporting subroutines are shown in Fig. 7,8, & 9. 

RESTRICTIONS : 

Must be called from VARIABLES 2. The system of units used for the 
thermal and flow problems should be consistent. 

CALLING SEQUENCE : PFCS (AFLOW, ADAT, NAME) 

where AFLOW - is an array which references other arrays for flowrates, 

pressures, flow conductors, valve positions, imposed flowrates, 
fluid type data, user added flow resistances and pressure 
drops. It is of the following format where the *A conversion 
feature described in Section 3.1 is used to reference arrays. 
AFLOW (IC), AW, APN, AGF, AVP, AIFR, AFT. AFR, APD, END 
ADAT - is an array which identifies other arrays containing fluid 

property, values , parameters needed for the pressure/flow 
solution numerical technique, the flow system network, valve 
data, pump data and a check outprint code. The integer count 
should be addressed. The format of ADAT is as follows where 
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NAME 


AFLOW ARGUMEN TS 
AW 


APN 


AGF 


AVP 


AIFR 


AFT 


the *A format is used to address array values: 

ADAT(IC), APR, ASOL, ANET, AVIS, AP, KOP, END 
is an array containing the name of the network (it may also 
be supplied as a Hollerith using the H format). Nine 6 
character words should be used. 

is the array number of an array containing flowrates per tube 
for each system. The integer count must be addressed and 
it must contain the number of spaces exactly equal to the 
number of tubes in the system. 

is an array number for an array containing the pressures for 
each pressure node in the system. On input the user need only 
set up the space. The interger count must be addressed and 
it must contain the number of spaces exactly equal to the 
number of pressure nodes in the system. 

is an array number for an array containing the flow conductors 
for each tube in the system. The user needs only to setup 
the space on input which must be exactly equal to the number 
of tubes in the flow system. 

is an array number for an array containing valve positions 
in order of valve numbers. The interger count must be 
addressed and the number of input valves must be exactly 
equal to the number of valves. The user supplies the initial 
valve positions in this array. 

is the array location of an array of imposed flow sources for 
each pressure node. The interger count must be addressed and 
the array must contain the number of spaces exactly equal to 
the number of pressure nodes in the flow system, 
is the array location of an array which contains fluid lump 
type data. The AFT array is of the following format: 


AFT, WP] , CSA^ , FLL^ . M^^ , NHL^ , 


FFC, 

I I 


nt 


WP|it» CSAnt» MFFnt» FFC^t 

END 

is the number of types 
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WPi - is the wetted perimeter of fluid type i 

CSA^ - is the cross sectional area for fluid type i 

FLLi - is the fluid lump length for fluid type i 

MFF1 “ is the curve of friction factor vs Reynolds number for 

Reynolds number greater than 2000 when greater than 0. 

” is a key to use internal calculations methods for friction 
factor when MFF = 0. 

NHLi - is the number of head losses for type i when real 

” is the number of an array of head losses vs Reynolds 
number when an integer 

FFCi - is a user input constant to be multiplied times the friction 

factor to modify it for type i. 

AFR - is an array number of an array containing user added flow 

resistances for the tubes. This can be used to include 

rr: the effects of changes in flow altitudes or the effects of 

valve types not available in the valve package or other known 
flow resistances. The integer count must be addressed and the 
number of values in the array must be exactly equal to the 
number of tubes in the flow system. 

ARD- - is an array number of an array which will contain pressure 

drop values for all tubes in the flow system following a call 
to PFCS. The array is strictly for output purposes. The 
integer count must be addressed and the number of array valves 
must be exactly equal to the number of tubes in the system. 

ADAT ARGUMENTS 

APR - is an array identifying the fluid properties data and 6C, 

the gravitational constant. It is of the following format: 
APR, CP, RO, MU, KT, GC, END 

CP, RO, MU, KT, are the values of fluid specific heat, density, viscosity, 
and thermal conductivity respectively or the appropriate 
array reference (using the *A format). The value is constant 
for any of the properties if a real number is supplied. The 
integer count must be referenced when variable properties 
are used. 
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GC 

ASOL 

TOL 

MXPASS 

EPS 

FRDF 

ANET 


- is the gravitational constant. Table 2 gives the value 
for various system of units. 

- is an array number of an array containing various numerical 
solution parameters needed by PFCS. ASOL is of the following 
format: 

ASOL (IC), TOL, MXPASS, EPS, FRDF, END 

- is the solution tolerance on rate of change of flowrates 
from one pass to the next. The fraction of change must be 
within TOL for all tubes in any system or subsystem before 
a solution is reached. TOL must be greater than 0. A 
typical value is 0.001 

- is the maximum number of passes permitted in the balancing 
loop of PFCS to obtain a pressure-flow solution on any given 
iteration. This value should always be greater than 20 with 
a typical value of 100. 

- Not used but a space must be supplied. 


- is the flowrate damping factor used to accelerate the rate 
of convergence for the iterative solution to the set of non- 
linear equations. This value should generally be between 
0.5 and 1.0. Values of 0.5 to 0.7 have been found best 

for most turbulent flow problems. 

- is the array number of an array which identifies the tube 
connections, pressure nodes connected and fluid lumps contained 
in the tube. The format of ANET is as follows were the *A 
format is used for AD, APNPS, and AVL: 

ANET.NNAME, APNPS, AVL 
TUBEl , NFRMl , NTOl , KDl , ADI 
TUBE2, NFRM2, NT02, KD2, AD2 

I I III 


I I til 

TUBEn, NFRMn, NTOn, KDn, ADn, END 


74 



NNAME 


APNPS 


NSPRi 

TUBEi 

NFRMi 

NTOi 

KDi 

ADi 


- is a six character name to be used for identifying the 
netv/ork in output statements, etc. 

- is an array number (referenced using *A) of an array 
identifying nodes with specified pressures and is of the 
form 

APNPS, NSPRI, NSPR2, NSPRn, END 

- is the ith pressure node with specified value 

- is the tube number of the ith connection 

- is the "from" pressure node for the ith connection 

- is the "to" pressure node for the ith connection 

- is an integer code to identify the type of conductor for 
the ith connection. (See ADi below) 

- is the data to be used for calculating the conductor value 
for the ith connection. 

If KDi < 0, the conductor value is the equivalent conductance 
of a subnetwork described by array ADi. ADi is then of 
identical format to ANET. 

If KDi > 0, the conductor is obtained by the normal pressure 
drop equations and array ADi fluid lumps, fluid lump types 
and tube lumps that are contained in the tube. The form of 
ADi is 

ADi, NFLMPl, ITYPEl , NTLMPl 
NFLMP2, ITYPE2, NTLMP2 

i I I 

I t I 

I t I 

NFLMPn, ITYPEn, NTLMPn, END 

Where NFLMPi is ith temperature lump contained in the tube, 
ITYPEi is the NFLMPi fluid lump type, and NTLMP is the tube 
lump containing NFLMPi. 

If KDi “ conductor calculation is not made, allowing the 

user to supply the pressure conductance value. ADi is not 

used. 
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AVLS 


is the array location (identified in array ADAT using the 
*A format) of an array which identifies the array location 
of the valve data for all the valves in the system. 

AVL - is the array location (identified in array ANET using the 

*A format) of an array which identifies the array locations 
of the valve data for the valves in the network or subnetwork 
described by ANET. 

AVLS and AVL are of the following fonmat: 

AVLS or AVL, AVLVl , AVLV2, AVLVNV, END 

Where AVLVi is the array number (using *A) of an array which contains the 
valve data for the ith valve in AVLS or AVL. The format for the valve data 
arrays, AVLVi, is one of three forms depending on the valve type (rate limited, 
polynomial, or switching). 

The format for a rate limited valve is: 

AVLV, NV, NTSl, NTS2, MODE, XMINl , XMAXl , E, TSENl , TSEN2, DB, 
RF, RL, END 

The format for a polynomial valve is: 

AVLV, NV, NTSl, NTS2, WODE, XMINl, XMAXl, E, TSENl, TSEN2 
AO, Al, A2, A3, A4, A5, VTC, END 
The format for a switching valve is: 

AVLV, NV, NTSl. NTS2, MODE, XMINl, XMAXl, E, NSEN, T1 , T2, END 

The following definitions apply for the above arrays: 

NV - Valve number 

NTSl - Tube number connected to side 1 of the valve 

NTS2 - Tube number connected to side 2 of the valve 

MODE - Operating mode: 1 - operating; 0 - not operating 

XMINl - Side T minimum position; side 2 maximum position is 

(1.0 - XMINl) 

XMAXl - Side 1 maximum position; side 2 minimum position is 

(1.0 - XMAXl) 

E - The valve geometric factor relating pressure drop through 

the valve by 

AP = E( flowrate/valve position)^ 
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TSENl 


- Sensor lump for side 1 or set point for side 2; If TSENl 
is an integer, it identifies the side 1 sensor lump to 
be controlled to (a) the set point for side 1 or (b) the 
sensor lump for side 2 (TSEN2). If the variable is input 
as a real number it represents a set point to which the 
side 2 sensor lump will be controlled. 

TSEN2 - Sensor lump for side 2 or set point for side 1; If TSEN2 

is an integer, it identifies the side 2 sensor lump to be 
controlled to (a) the set point for side 2 or (b) the sensor 
lump for side 1 (TSENl). If the variable is input as a real 
number it represents a set point to which the side 1 sensor 
lump will be controlled. 

AO, A1 , A2, A3, A4, A5 - Polynomial curve fit coefficients for a curve fit of 
the steady state valve position vs sensed temperature error 
for side 1 : 

XISS = AO + A1 -AT + A2-AT2 + A3-AT^ + A4*AT^ + AS-AT^ 

DB - Dead band for the rate limited valve, degrees of temperature 

(See Figure 5). 

RF - Rate factor, the rate of change of valve velocity to sensed 

temperature error (dx/d(AT)) as shown on Figure 5. 

RL - Rate limit, the maximum valve velocity, Xmax (See Figure 5). 

VTC - Valve time constant as described in Section 2. 2. 3. 2. If 

a valve is desired with no time lag, a time constant which 
is very small compared to the problem time increment should 
be input. (VTC must be greeted than zero). 

NSEN - Sensor lump for switching valve 

T1 - Side 1 off temperature or side 2 on temperature for switching 

valve 

T2 - Side 2 off temperature or side 1 on temperature for switching 

val ve 

AP - is the array number of an array containing the pump data for the 

system specified in the ADAT array using the *A nomenclature. 

The format of the AP array is different for different types of 
pumps. If flowrate is a function of time the format is 
(where AW is supplied using *A); 
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AP, NPI, AW. END 

If the flowrate is obtained using a tabulated pump curve the format is: 
(where ADP is supplied with *A) 

AP, NPI. NPO, ADP, END 

If the flowrate is obtained using a polynomial pump curve, the format is: 
AP, NPI, NPO, AO, Al, A2, A3, A4, END 

The following definitions apply in the above arrays: 

NPI - System inlet pressure node 

AW “ Tabulated curve of flowrate vs time 

NPO - System outlet pressure node 

ADP - Tabulated pump curve giving pressure rise as a function 

of flowrate 

AO.Al ,A2,A3,A4 - Polynomial curve fit constants for flowrate as a function 
of pressure rise, i.e., 
w * AO+Al -AP + A2*AP2 + A3-AP4 + A4*AP^ 

KOP - is an integer code for checkout print from subroutine PFCS. 

If KOP = 1 a checkout print will be obtained. If KOP = 0 
a print will not be obtained. 

DYNAMIC STORAGE REQUIREMENTS: 

Dynamic storage required for PFCS is 1/2(NPRN2 + 6*NPRN+12), where 
NPRN is the maximum of the number of pressure nodes in any network. 
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TABLE 2 VALUE OF GC FOR VARIOUS PROBLEM UNITS 


r 



UNITS 



6C 

MASS 

FORCE 
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TIME 


LB 

■ 

‘f 

Ii 


Sec 

386.1 







Min 

1.390X10® 





1 


Hr 

5.004X10® 





Fi 

t. 

Sec 
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1.1583X10® 







Hr 

4.1696X10® 
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gr; 

VM 
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> 
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> 

f 

Hr 
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i 

.OGRAM 
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1 
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1 
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36 


1 





Hr 

1.296X10® 





Ml 

2 ter 
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1.0 
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3600. 


;[ 




[ 

Hr 

1.296X10^ 
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FIGURE 7 FLOW CHARTS OF PFCS AND NTWRK 
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NTWRKl 


NTWRKN 


UBNETWORK 
S.CODE ^ 


CALL 

NTWRKN 


CALL 

FLRES 


SUBNETWORK 
\CODE / 


rRRflR 

TERMINATION 


CALL 

FLRES 



CALL 

FLOBAL 


CALL 

FLOBAL 


CHECKS 

TOLERANCE. 


/ CHECKS 
TOLERANCE. 


RETURN 


RETURN 


FIGURE 8 FLOW CHARTS OF NTWRKl AND NTWRKN 








FIGURE 9 FLOW CHART OF FLOBAL 
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SUBROUTINE NAME: 


HSTRY 


PURPOSE ; 

Subroutine HSTRY stores the problem time, the pressures of 

all pressure nodes, the valve positions for all valves, the flowrates for 
all tubes, and the temperatures of all temperature nodes at an input interval 
on a magnetic tape (the history tape) mounted on Unit T. The number of 
records written on the history tape is the number of history intervals plus 
two. The first record contains a title, an integer count of the number of 
items to be written for each of the four categories (pressures, valve positions, 
flowrates and temperatures), and the actual node numbers in order of the 
relative numbers. The second thru the next-to-last records contain the history 
records with one for each time point and the last record is the same as the 
next-to-last except the time is negative. The arguments to HSTRY are the 
pressure array, PR, the valve position array, VP, the flow rate array, W, 
and the history tape writting interval, TINC. 

The format for the history tape is as follows: 

Record No. 1 

Tit5e (Written Internally) in 12A6 format, 0, 0, 0, 0, 0, 0, No. of pressure 
nodes, number of valve positions, 0, 0, 0, number of tubes, 0, 0, number 
of nodes, actual node numbers in increasing order of relative node numbers. 


Record No. 2 

Initial problan time, pressures, valve positions, flowrates, node temperatures 
Record No. 3 

Second history time, pressures, valve positions, flowrates, node temperatures 

I 

« 

I 


Record No. N+1 (Where N = number of history time slices to be written) 

Last history time, pressures, valve positions, flowrates, node temperatures 



Record No. N4-2 

Same as last record except time is negative 
RESTRICTIONS ; 

Should be called in VARIABLES 2. An output history tape should 
•be mounted on Unit T. Subroutine TMCHK must be in VARIABLES 2 prior to the 
call to Subroutine HSTRY if TIMCHK is called in the problem. 

If the backup feature is used in VARIABLES 2, the call to sub- 
. routine HSTRY should not be made until the last pass to avoid nonincreasing 
time records or Invalid data. For example: 

BCD 3VARIABLES 2 

:: F IF (T(16) .LT. TMAX) BACKUP =1. 


F IF (BACKUP .6T. 0.) GO TO 10 

HSTRY (Al, A2, A3, .01) 

F 10 CONTINUE 
END 


CALLING SEQUENCE : 

HSTRY{PR(IC), VP(IC), W(IC), TINC) 


PR 

- is 

the 

VP 

- is 

the 

W 

- is 

the 

TINC 

- is 

the 


pressure (or pressure drop) array 
valve position array 
flowrate array 
time interval for plotting 
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SUBROUTINE NAME; 


NEWTMP 


PURPOSE : 

Subroutine NEWTMP will read the node temperatures, flowrates, 
pressures and valve positions at time TMPTIM from the history tane assigned 
to Unit U generated by subroutine HSTRY for a previous run on Unit T to 
initiate a problem at these conditions. The pressure array, PR, valve position 
array, VP, flow rate array, W, and time to read the tape, TMPTIM, are arguments. 
The subroutine should be called in the execution block prior to the call to 
the temperature solution subroutine. 

RESTRICTIONS : 

^ Must be called in the EXECUTION block prior to the call to the 

appropriate temperature solution subroutine. The history tape must be 


Assigned op 

Unit U. 

XAILING SEQUENCE: 

NEWTMP (PR( I C), VP(IC), W(IC), TMPTIM) 

"pR 

- is the pressure array 

• r * • - 

yp' ; 

- is the valve position array 

w 

- is the flowrate array 

TMPTIM 

- is the time to read the values of PR, VP, W and temperatures 
from the U tape 
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SUBROUTINE NAME: 


FLPRNT 


PURPOSE : 

Subroutine FLPRNT will write the values of the DATA array of 
real numbers at 10 to a line. The array is labeled by the variable input HEAD 
which contains 9 six character alpha numeric words. The array location of every 
tenth value in the array is identified to the right of the appropriate line. 
FLPRNT was written primarily for the output of flowrates, pressures, pressure 
drops, and valve positions obtained from PFCS but may be used for the output 
of any real array. 

RESTRICTIONS : 

Should be called from OUTPUT. The array must be real. 

CALLING SEQUENCE : 

FLPRNT(DATA(IC), HEAD(DV)) 

SUBROUTINE NAMES : 6EN0UT, GENI OR GENR 

PURPOSE : 

These subroutines print out arrays of numbers 10 to a line. 

GENOUT prints either real numbers, integer or both. GENI and GENR print 
integers and real number arrays respectively. The integers are written in an 
19 format and the real numbers in an El 2.4 format. 

RESTRICTIONS : 

■ GENI writes arrays of integers only. GENR writes arrays of 

real numbers only. 

CALLING SEQUENCE ; 

GENOUT (A, ISTRT, ISTP, 'NAME') 

GENI (A, ISTRT, ISTP, 'NAME') 

GENR (A, ISTRT. ISTP, 'NAME') 

where A - is the array location 

ISTRT - is the first value in A being written 

ISTP - is the last value in A being written 

'NAME' - is a title of 22 Hollerith words for identification 
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SUBROUTINE NAME: 


FLUX 


PURPOSE : 

Subroutine FLUX permits doublet time variant curve values stored 
on magnetic tape unit NFLXTP to be read Into NCRV arrays starting at array 
DATA when the mission time exceeds DQTIME. The flux tape must be generated 
prior to the run using a GE routine LTVFTP- This routine generates the flux 
tape in the following format: 

Record No. 1 
First Read Time 

Record No. 2 

Number of points on first curve (Integer), first curve independent variables, 
first curve dependent variables, number of points on second curve, second 
curve independent variables, second curve dependent variables, etc. for all 
icurves . 

Record No. 3 
‘Second Read Time 

-Record No. 4 

Same as Record No. 2 except with new Values 

Record No. 5 
Third Read Time 

Etc. until all blocks of data are on tape. 

Subroutine FLUX writes the values from the appropriate NFLXTP record into 
the arrays defined by DATA and NCRV in the proper doublet array format. 

Flux values should be input into the heat flux arrays (DATA] — t^ATAnjQf^y) 
initially if the user doesn't want the values to be read from the tape 
at the start of the problem. The value of QTIME should initially be the 
value of the time the first read is desired. 

RESTRICTIONS : 

The following restrictions apply: 

(1) The initial block of curve data must be input on cards or data 
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(2) Particular curves must have the same number of points on 
each block of data read in as were input on cards initially 

(3) Each curve may have a different number of points 

(4) The first point on each curve in each block of data must be 
the same as the last point on that curve in the previous 
block of data 

(5) All incident heat curves must be in a single block by 
themselves. 


CALLING SEQUENCE ; 

FLUX(NFLXTP, DATA. NCRV, DQTIME. QTIME) 


where 

NFLXTP 

DATA 

:NCRV 

“DQTIME 

QJIME 


- logical unit to which the flux tape is assigned. Must be 
supplied by a user constant. 

- starting location (IC) for flux curves 

- number of flux curves to be updated from the flux tape 

- time scale shift for flux curves DQTIME is added to each 
independent value for each flux curve read from NFLXTP 

- the last point on the latest set of flux curves read from 
NFLXTP. (QTIME = FLXTIM +' DQTIME. where FLXTIM is the time 
read from the flux tape) must be supplied by user constant. 
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SUBROUTINE NAME: 


TIMCHK 


PURPOSE : 

Subroutine TIMCHK compares the elapsed computer time against the 
requested computer time, RTIME, and terminates the run if RTIME is exceeded 
by the elapsed time. If the second argument, KODE, is non-zero an output 
of computer time used will be printed out on each call to TIMCHK. Thus, a 
call to TIMCHK in VARIABLES 2 should normally be with K0DE=0. If the output 
of computer time used is desired, TIMCHK should be called from OUTPUT with 
KODE f 0. The most desirable procedure is to supply two calls to TIMCHK : 
(-UA-Call in VARIABLES 2 with KODE = 0 and (2) a call in OUTPUT with 
KODE i 0. 

RESTRICTIONS : 

KODE should zero when called from VARIABLES 1 or 2. 

CALLING SEQUENCE ; 

TIMCHK (RTIME, KODE) 

where RTIME = maximum computer time requested 

KODE * print code: = 0, computer time used is not printed out 

i 0, computer time used is printed out on 
each call to TIMCHK 
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SUBROUTINE NAME; 


REVPOL 


PURPOSE : 

This subroutine performs single variable linear interpolation 
on a doublet array of X,Y pairs in the same manner as DlDEGl except in re- 
verse order. The array is interpolated in reverse order to obtain the value 
of independent variable, X, which corresponds to the input dependent variable, 
Y. 

RESTRICTIONS ; 

All values must be floating point numbers. 

CALLING SEQUENCE : 

REVPOL (Y,A(IC).X) 

where Y - input value of dependent variable 

A - Doublet array of X,Y pairs 

X - output value of independent variable 
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SAMPLE PROBLEM 


5.0 

- A sample problem was prepared for the SINDA routine to demon- 

strate the input and output for a typical thermal/flow analysis problem. A 
schematic of the problem Is shown In Figure 10 . The problem consists of 8 
two dimensional radiator panels, each modeled by two flow paths (one for the 
main panel of 11 tubes and one for the prime bypass tube). Contained in the 
system are a pump, a bypass valve (valve No. 1) and a stagnation valve between 
-the two flow paths. The heat load to the radiator system comes through a 
counter flow heat exchanger which has a controlled inlet temperature of 40°F. 
The fluid is Freon 21 in the radiator system and water on the cooled side of 
^the heat exchanger. The nodal subdivision for the fluid system is shown 
in Figure 10. The structure nodal subdivision is shown in Figure 11. 

The output for the run is presented in Table 3. A selected 
few items were plotted using the plot package described in Appendix B. These 
are presented in Figures 12 thru 17. 
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TABLE 3 



• •$« Cs«05U2 

• *S6 Z>«0S7«3 
M use Ts«02243 

• *$6 O.J.K.ft 


OUTPUT FOR SAMPLE PROBLEMS 


as FEB 73 
as FEB 73 
as FEB 73 
as FEB 73 
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t 



t$ ret I) 





• I3T etta 
I. Taw c 
I. in C 

c«D or rue — uhit £ 

C«0 cua tee U92-003T t1 
md 6 Sanatt raoBicn raa smoa version « 
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SArtPic riOBLEn ran stN0« version « 


PRTC 2502T) PAGE 


IRilNsSJ 


m 

# XOT SINDA/PACPAO 


t 

2S FC& 73 


STI^nTING mRESS 01^000 

CORE tInITS 0I<»000 0^77^5 05036$ 163771 163772 163777 


7RE7RO/CODC 

0 050366-050^25 

1 0H0O0-01«i‘i5R 

t WUTO /RtECR 

0 . 050**26-C5O*i32 

: I : OIRR55-015^57 
' 2 050533-050-J50 

“ iflOIN5/RLrC5 
^ 1 " 015R60-015531 
p.2. 050^51-050501 

R76B9 /coot 

' 0 050502-050650 

/RLECH 

1 ' 015532-016*#6T 

^,2 050651-050665 

; MCiiyTS/RltC5 
1 016570-01671*1 

V 2 C5C666-05075*» 

' iiatlNt/RltC5 
‘ I ' Ol67i5"01736N 
^,2, 050755-051020 

‘ ffiCifO/CODE 

017365-017*4 30 

OIRTH 

C 051021-051026 

IlfFrvs /ai22 
1 017*131-017*453 

MDrVi/Rltf*f 
0 051027-051213 
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PROBLCn rOA SIAOA VERSION V 


0ATC ISeZT) RACE 


<UMfS/RLEC9 

0 

I Ot7^$^-0209M 
I 09Uir-OS125^ 

NIMIUS/RLEC^ 

( C20572-020T27 

I 0912SS«05130^ 

mCRS /RLECS 

0 05n05*OSL309 

1 070730-021235 
I 051306*051^02 

NCRRO /RLECR 

0 051603-051572 

1 021236*021700 

IIF0liU/RLEC5 
I 021701*022132 
2- 051573*051576 

IIRUFfom23 
I 022133*022155 
1 051575*052605 

MifRds/RtECH 
1 022156-022250 

0UF1SL*8/C0DE 

0 052606-052650 

1 022251-022335 

iStdP>/RLEC5 
f 022336-022367 

REUS /CODE 
O' 052651-C52705 
I 022350-022365 

TITLEJ/COOE 
0 0527*06-05 3006 

1- 022366-022665 

0- 053007-05^023 

TAPE /•■••#»• 

0 65^02*i-05«t035 

0 05^036-055105 

0 055106-055375 

CAT* /#*..•• 

0 C55376-055%I7 



SUFIPU rnOBUn FOR 5l*iOA VERSION $ 


BAT£ 250273 RAGE 


3 



lOGtC 

0 055^20-05551^ 

0 055515-055520 

0 OS5527-056130 

tUCKET/*#f«»* 

0 050131*150500 

FOINT /•••••• 

• 150501*156575 

CHEC«0/#t**** 

0 tSe574*156TA7 

FI AGS 

e 156750-156752 

4FS 

0 156753*156753 

CINAGC/****** 

0 I567SA-157333 

0f|fUP£/RLEC5 

1 022^56-022707 
t 15733A-15733*i 

SEARCH/CCCE 

0 157335-157351 

1 C22710-02277II 

f!AL*tOS/COOE 
1 022775-023^33 

If.RCHC/CODE 

0 157352-157630 

1 023^3S-02S327 

M7BLIC/CdCe 
t 02-i330*C2*i3**l 

5TFFR /CODE 

0 157631-157643 

1 C2*»3*i2-02S37l 

FIADan/COCE 

0 1576^4-157717 

1 024372-024723 

50tTf7/CC»Cf 

0 157720-75774? 

. I 024724-025015 
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SAfiPU pj^Qurn ro^ sinda vcRSidn « 


DATE 250 »n PAGE 


A 


SREACC/COOE 
• 1S77^)*I60035 

1 O25QU-02)35O 

ARCADC/tOOE 
A U0034-U00S5 
I 025351-025501 

iOBlK /CODE 

0 |«0056-U0070 

1 025502-025il0 

/CODt 

0 U0071-UOU2 

t 025AU-02S&31 

HTAAH /CODE 
0 1>0!33-U0n7 

t 025632*02572^ 

C[/ADRfl/COOE 

0 U0IA0-U01A4 

1 025725*02^005 


t«C01T /CODE 

0 U0t55*l«t056 

1 026005*027375 

t«7100trA /CODE 

0 I60155-U0305 

1 026005*027063 

•UPTAP/COCE 

0 160305-160317 

1 027065-027223 

ItiFPCr/tOCE 
0 160320*160326 

t 027225-027306 

fOCEMT/roCE 

0 160327*160350 

1 027307-027535 

ri ADA D/ CODE 

0 160351*160357 

1 027535*027613 

PPCH /CODE 

0 160360*160372 

1 027615-027651 

A2ILDA/riJCE 

0 160373-160550 

1 02765^-027756 

TOCO* /CDCE 
0 lf0551*160«62 
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Om 2502H fAGE 


SAAPlC fftOBLCn FOR SP<OA VERSION V 
I OtlYA7-QS003$ 

TQCWRT/CQOE 

0 160 ^ 63-160571 

1 030036-030151 

RDSn /CODE 
• 160$72-U0601 

I 030152-030223 

flURTlT/COOE 
0 160602-160656 

t 030225-030310 

tOTHH/COOE 

0 1606S7-160663 

1 030311-030530 

ftSCOOWCOOE 

0 160665-160705 

rrODS /CODE 

1 030531-030565 

CiOCX /CODE 
0 160706-160710 

t 030566-030556 

NEwnoO/CODE 

0 160711-161050 

1 030557-032055 

VfOAT2/COOE 

0 161051-161130 

1 032056-032606 

IflPOATl/COOE 
0 161131-161217 

t C32607-033613 

rwRITC/CGDE 
0 U1220-U1275 

f 033615-035053 

COr?AG/COOE 

0 161276-U1615 

1 035055-035275 

SINOAl/CDDE 

0 I6U16-16U65 

1 035276-035533 

CAEAD /CODE 

0 UU65-U1753 

1 035535-035075 

strick/coce 

0 I61755-U2125 
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0*TC tSeiTI r*6E 


saRTLE paseicn fon sikd* version « 

I e)so;s>035tu 

BCfELO/COOE 

0 UII2«-Ut2<S 

1 «35UV-OJ5m 

mvc /CODE 

0 1«22V«>U226V 

t eisns-esEUT 

NUL /CODE 

0 U226S*l«22Ti 

1 02«130-03atse 

mCH /CODE 

0 t«2272-l(2302 

1 e3ElSi-03«212 

e 1E2303-1632U 

•RODNEW/««***< 

e l«32TT-tt3323 

0 U33TV*U3<>C0 

••CENLNK/COOE 

9 U0tVS-l6O2&2 
t 02»005-02«3U 

••rSEVDO/COOE 

e uetvs-uo2ri 

1 C2*O0S>O3Ot3l 

•rCS2 /CODE 

0 110272-1(0301 
t 030132-030177 

t»CCCERD/COCr 

1 C2(00S-O3O(*»O 

tHOEO /COCE 

0 1(0*127-1(0520 

1 030(51-331107 

■0aT«R0/C0CE 

0 1 ( 0521 - 1 ( 1*57 

1 031110-035727 

•EnA"CS/Ci!CE 

0 1 ( 1550 - 1(2757 

1 O357S0-03((11 

•C0NVA7/C9CE 

0 1(27(0-1(3015 

1 C3((l2-03(737 



sind^ vihsion f 


DMC 290m 9AGC 


#mcMK/cooc 

• t«3au-ua036 

1 P36M0-P37t5$ 

•QCftT* /CODE 

• ' lP3037*U3tS3 
t P3T15P-0^0715 

•PUftcr/cooE 

0 ti3t51-U320S 

1 eP07P6^0^l22« 

•VRIDTA/COOE 

0 I63Z06-163227 

t 0^1227^0^206^ 

•WWTW/CODE 

e U3230-U32*»6 
t 0^2065-0^2^^2 

6SVM /CODE 

0 I632«r7-1632$6 

1 O^2M3-0^2$5^ 

♦|«CC»E/CODE 
e U3267-U3316 
1 O^2555-0'?3350 

•SOTffrr/COCE 

0 I633l7-U3*nt 

1 0^3351-0*13537 

• #CE0t*0 /CODE 

0 U3517-V63*»73 

1 0^3550-0*4^1^7 


««N 00 ES /CODE 

0 163575-163562 

t 055150-057235 

i«C0005 /CODE 

0 163575-163613 

1 055150-057755 


f#p;»ES»;E/COCE 

0 160155-160223 

t C 26005-026133 

♦Sf5C5«/CaCE 

0 160225-161133 

1 026135-030516 

•f«lT2E^/reCE 

0 161135-161226 

1 030517-031207 

»6lPl%T/raCE 
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Stn^LE rnoBiEn roit simo* vcksi3n i 

1 OJUIO'OJITIl 


sm isom MGE 


I•SHIT /CODE 

0 t«O14G-lt0IT0 

1 02«OOG>et»7TO 

•SKir /CODE 

« 16OIT1-U0ZU 
I «26TTI*02f}01 


END or tllOCATION 1103 033«A 04091 



i 


S«nPLE PnaALCn fop SINOP VCftSION « 


e»TC 1502TJ FPGE 


SUlDPmRSION t OPTED FEB 11T) (COftPllEO I'MOEB (fNIVPC F0PTBPN/2T ON FEB 12, IBT3} 


• CESCPlPTSaN OF THE nOOIFICPTtONS TO EPCH VERSION OF SIKOP IS CONTAINED ON CQnnENT CARDS IN SUBROUTINE NEUS •••• 



•sine* 


SAnPLt raatLEn ran vino« vcrsisk n 
NOELC Z 


OMC ZSOZI3 r*GE 


•cei« SIND* mmaccssan, nersisn s. at iNttsiO) 



%$Lr\ni fAOBlEn FOR StNCA VCRStON « 


OHU 290213 PAGE 


11 


ICD BTHtRr^AL IFCS 

BCD 4 SAAPLt PROBLEn FOR SIftOA VERSION 1 


2ND 

ICO 3^002 DATA 
HEn RODE, MUft, INC , 

Tf 

,Bai, CONST 

Sl« 1, 


6 , 

ro. 

, A3, .012094 

SIfl 2, 


6 , 

70. 

, A3, .00305 

Sift 3, 


4, 

70. 

, A3, .00305 

Sift A, 


4, 

70. 

, A3, .00305 

Sift 5, 


4, 

70. 

, A3, .00305 

Sift 4. 


4, 

70- 

, A3, .012096 

Sift 


4, 

70. 

, A3, .012096 

Sin 50, 


4, 

TO. 

, A3, .0000213 

Sift 51, 


s« 

70. 

, A3, -0000213 

Sift 5Z, 


4, 

70. 

, A3, .0000213 

Sift 53, 

8, 

4, 

TO. 

, A3, .0000213 

Sift 55, 

F, 

4, 

TO. 

, A3, .012096 

SIT 57 



70. 

, A3, -C0SO4O 

SIT 98 



TO. 

, A3, .005090 

SIV 99 



70. 

, A3, .020140 

SIV xlOO 



TO. 

, A3, .007056 

SIV *ior 



TO. 

, A3, .007054 

$IV M02 



70- 

, A3, .002520 

SIT ^ 103 



70. 

, A3, .002520 

SIV / 105 



70. 

, A3, .007056 

SIV 1105 



TO. 

, A3, .007056 

SIV : 104 



70. 

, A3, .020140 

SIV 107- 



70. 

, A3, .020140 

SIV-L 10» 



TO. 

, A3, .005090 

SIV. 109 



70. 

, A3, .005050 

SIVi.llO 



70. 

, A3, .002520 

SIV 111 



70. 

, A3, .002520 

SIV ‘ 112 



TO. 

, A3, .005090 

SIV: 113 



70. 

, A3, .005050 

SIV 115 



70. 

, A3, .020140 

51V ns 



70. 

, A3, -005C90 

SIV; 114 



70- 

, A3, .002014 

Siv: 117 



70. 

, A3, .050500 

2tl98' 



100. 

, l.O 

?rl99 



50. 

, l.O 

-r200 



too. 

, l.O 

Sift . 201, 

8, 

4, 

70. 

, 45, .720 

sift: 202 , 

8, 

4, 

70. 

, 49,10.3 

sift 203, 

e. 

8, 

70. 

, A5,10.3 

Sift 205, 

e. 

4, 

TO. 

, A9.10.3 

sift 205, 

e. 

4, 

70. 

, A5,10.3 

Sin 20 f, 

8. 

f. 

70. 

, A5, .720 

Sift 259, 

8, 

8# 

TO. 

, A5, ,720 

Sift 250, 

8, 

6, 

70. 

, A5, ,5718 

Sift 25!, 

8. 

4, 

70. 

, A9, .5718 

Sift 252, 


4, 

70. 

, A9, ,0718 

Sift 253, 


4, 

70. 

, A9, .5718 

Sift 255, 

8. 

4, 

70. 

, 45, .720 

SIV 297 



70. 

, A9, ,299 

SIV 298 



70. 

, A9, ,299 


B 

$ 

« 

4 

B 

B 

0 

B 


FLUID UWS 


TUBE tirPS 
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Sm 250273 12 




Stv 

299 

9 

70. 

51V 

300 

9 

70. 

SIV 

301 

* 

70- 

siv 

302 

• 

70. 

SIV 

303 

m 

70. 

SIV 

309 

9 

70. 

stv 

305 

9 

70, 

stv 

30ft 

9 

70. 

SIV 

307 

9 

70. 

stv 

30$ 

9 

70. 

stv 

309 

• 

70. 

stv 

310 

* 

70. 

SIV 

311 

9 

70. 

SIV 

312 

9 

70. 

SIV 

313 

9 

TO. 

SIV 

319 

9 

70. 

SIV 

315 

9 

70. 

SIV 

3lft 

9 

70, 

SIV 

317 

# 

TO. 

END 

-900 

9 

-959.69 


. KELAriVC woe WUnBE«S 


IWA VERSION 9 
l«2Q t 

.AH » 

.AIB 1 

,150 ♦ 

.150 0 

.Alf • 

,R15 f 

-T20 • 

1.200 ft 

.720 ft 

» .720 ft 

, .150 ft 

, .150 ft 

. .720 4 

, -720 4 

, 1.200 4 

, .299 ft 

, .012 ft 

* 2.99 ft 


ACTUAL WOE NUnOERS 



. . 1 

THRU 

to 

1 

7 

13 

19 

25 

' 

: 11 

THRU 

20 

19 

20 

2ft 

32 

3S 

- ’ 

. :ai 

THRU 

30 

2? 

33 

39 

95 

9 

' ■■ 

. ^31 

THRU 

90 

90 

96 

5 

11 

IT 


. : 91 

THRU 

50 

6 

12 

IS 

29 

30 

• 

: 51 

THRU 

60 

61 

67 

73 

79 

S5 

S - 

til 

THRU 

70 

79 

SO 

Oft 

92 

51 


:7i 

THRU 

SO 

sr 

93 

52 

5S 

69 

' 

St 

THRU 

90 

53 

59 

65 

71 

77 

s . 

91 

THRU 

too 

ftft 

72 

7ft 

S9 

90 


101 

THRU 

110 

toi 

102 

103 

109 

105 


111 

THRU 

120 

m 

m 

113 

119 

115 


. 121 

THRU 

130 

219 

225 

231 

237 

293 

^ ‘ 

131 

THRU 

190 

232 

23$ 

299 

203 

209 

- ; 

191 

THRU 

150 

295 

209 

210 

216 

222 

; • 

151 

THRU 

160 

211 

217 

223 

229 

235 


161 

THRU 

170 

229 

230 

236 

292 

29 ft 


171 

THRU 

IftO 

279 

285 

291 

250 

25ft 

\ 

ifti 

THRU 

190 

292 

251 

257 

26 3 

269 


. . 191 

THRU 

200 

25$ 

2fc9 

270 

276 

262 

* 

201 

THRU 

210 

271 

277 

283 

289 

295 

- 

. 211 

THRU 

220 

269 

290 

296 

297 

298 

• 

221 

THRU 

230 

309 

305 

306 

307 

308 


231 

THRU 

23ft 

319 

315 

316 

317 

198 


.WOE 

ANALYSIS. 

CIEFUSION - 

239, 

ARItwrET 

ir s 

0, 

ftOUfiCARY 


' BCD TSOl'RrE DATA 


RE^ WPC,AC 7[nf »,c:wsr ft 


SIT 

202. 

A15, 

16.2TD 

S 

SIT 

203. 


16.270 


r SIT 

209, 

A15, 

16.270 


SIT 

205, 

615, 

16.270 


SIT 

20$, 

A15, 

16.270 


SIT 

205, 

A15, 

16.270 



31 

NO 

10 

23 

3ft 

91 

5? 

70 

S3 

96 

10ft 

lift 

202 

215 

229 

291 

299 

262 

275 

299 

259 

299 

309 

199 


37 

3 

1ft 

29 

92 

50 
63 
7ft 
19 
97 
107 
117 
20ft 
221 
239 
29 7 
255 
266 
2ftl 

299 
260 

300 
310 
200 

TOTAL 


93 

2 

9 

15 

22 

28 

35 

91 

98 

99 

5ft 

62 

69 

75 

S2 

S$ 

95 

59 

9$ 

99 

IQft 

109 

201 

207 

219 

220 

227 

233 

290 

296 

206 

212 

261 

267 

279 

280 

287 

293 

253 

259 

26ft 

272 

301 

302 

311 

312 

*00 


238 



0 

21 

39 

97 

55 

6S 

SI 

99 

60 

100 

llO 

213 

226 

239 

205 

21S 

273 

266 

252 

265 

27ft 

303 

313 


% 


107 



em 2S027} r*cc 


sannc mobicb fob sjnob vfbsion i 


SIT 

JIO. *15, 

16,270 9 

SIT 

2IU 

16.270 5 

$U 


16.270 5 

SIT 

215, #15, 

16.270 9 

SIT 

216, #15, 

16.270 9 

SIT 

217, #15, 

16,270 t 

SIT 

220, #15, 

16.270 t 

SIT 

221, #15, 

16.270 i 

sn 

222, #15, 

16.270 S 

SIT 

223, #15, 

16.270 9 

SIT 

226, #15, 

16.270 C 

SIT 

227, #15, 

16.270 S 

SIT 

228, #15, 

16,270 t 

SIT 

229, #15, 

16.270 9 

SIT 

232, #15, 

16.270 t 

SIT 

233, #15, 

16.270 5 

sn 

235, #15, 

16.270 6 

SIT 

235, #15, 

16.270 t 

SIT 

238, #15, 

16.270 5 

SIT 

239, #15, 

16.270 9 

SIT 

290, #15, 

16.270 6 

SIT 

291, #15, 

16.270 9 

SIT 

2M, #15, 

16.270 9 

SIT 

295, #15, 

16.270 9 

SIT 

296, #15, 

16.270 9 

SIT 

297, #15, 

16.270 9 

SIT 

259, #15, 

0-931 9 

SIT 

251, #15, 

0.931 9 

SIT 

252, #15, 

0.931 9 

SIT 

253„ #15, 

0.931 9 

SIT 

256, #15, 

0-931 9 

SIT 

257, #15, 

0.931 9 

SIT 

258, #15, 

0,931 9 

SIT 

259, #15, 

0.931 9 

sn 

262, #15, 

0.931 9 

SIT 

263, #15, 

0.931 9 

SIT 

269, #15, 

0.931 9 

SIT 

265, #15, 

0.931 9 

SIT 

268, #15, 

0.931 9 

SIT 

269, #15, 

0.931 9 

SIT 

279, #15, 

0.931 9 

SIT 

271, #15, 

0.931 9 

SIT 

279, #15, 

0.931 5 

SIT 

275, #!5, 

0.931 9 

SIT 

276, #15, 

0,931 5 

sn 

277, #15, 

0.931 9 

SIT 

289, #15, 

0.931 9 

SIT 

781, 615r 

0.931 9 

SIT 

282, #15, 

C.931 9 

SIT 

283, #15, 

0.931 9 

SIT 

286, #15, 

0.931 9 

5!T 

2?7, #15, 

C.931 9 

SIT 

288, #15, 

0.931 9 

SIT 

289, #15, 

0.931 2 

SIT 

292, #15, 

0.931 9 

SIT 

293, #15, 

0,931 t 

SIT 

299, #15, 

6.931 9 

SIT 

295, #15, 

0.931 9 


t) 
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$*>VLC Pioaicn.roR sino* vCRStON a 


e*Ti »eiT} r«Gt la 


IRO 

•to KCNDuCTon C*r« 


urn 

«S R3G 1C RR 

INN 

RB tH 

6 


ecu 

1. 5. K -W 

1. 

2, 

, T5. 

«rioy 

fiCM 

4. 1. -T, 


6, 

. 75- 

t 

ecu 

11. i, 1, -n. 

i. 

11* 

, 75. 

% 

ecN 

u, », 1, -la. 

1. 

20* 

, 75. 

% 

UN 

H, 5, 1, -It. 

1, 

24* 

P 75. 

• 

SEN 

it, $, 1, -31. 

1, 

32, 

, 75. 

% 

UN 

31, 5, 1. -37, 

U 

34* 

, 75, 

5 

UN 

34, 5, 1, -N3, 

i. 

11, 

* 75, 

6 

UN 

Rl. 5, 1, -tt. 

u 

10* 

* 75. 

i 

UN 

a*. », 1, -tt. 

1, 

56, 

, 75. 

% 

UN 

51, 5. 1, -M. 

Ic 

42, 

* 75. 

% 

UN 

54, 5, 1, -41. 


68, 

, 75- 

% 


tl. 5, 1, -73, 


71* 

, ?5. 

S 

UN 

tt, t, 1, -la. 

u 

60, 

* 75. 

0 

UN 

7t, 5, 1, -65, 

Ic 

66, 

* 75. 

6 

UN 

T4, 5, 1, -51, 

i. 

12* 

, 75- 

* $ 


•I, ICO, 97, *7S. 





- 

81, -97, 98, tC9. 






•3, -17, lU, 25* 






61, -IS, 11, 350. 

£ 





•S, -98, 107, 300. 

0 




r* I L ■ 

•4, -11, 13, 75. 

* 





87, -11. 11, 75. 





» 

^88, -11, 100, 150. 

0 




J , 

•9,-100, 1, 75. 

0 




f 

•10,-160, 7, 75. 

m 




5: 

•11, -IS, 101, 75. 





■ 

12, -21, lOl, 75. 





< 

13, -4, 102, 75. 

# 




t ' 

" 11, -12, 102, 75. 




, 

' 

15,-lCl, 102, !?0. 

s 





14,-102, 103, 300. 

0 





‘ 17,-103, 25, 75. 

0 




K . 

■ is, -103, 31, 75. 

0 




* 

‘^9,-103, 161, 150. 

t 




* - 

100,-161, 37, 75. 

t 





101, -101, 13, 75. 






102, -12. 104, 75. 





I' 

103, -IS, 104, 75. 





i - ‘ 

101,-105, 104, 150. 

c 





105,-107, 11, 300. 


. 



■ t 

104, -lOJ, 55, 75. 





* < 

>07,-107, ICS, 150. 

* 





10S,-168, 41, 75. 






109,-lCe, 47, 75. 

0 




' - 

310, -51, 101, 75. 

s 





Ill, -40, Id, 75. 






112, -44, no, 75. 

0 





113, -72, no, 75. 

0 





111,-101, no, 150. 

2 





>15, -no. 111, 300. 






114,-111, 45, 75. 






ii7,-in, n, 75. 

s 





llF,-ni, 112, 150. 





- 

111,-112, 73, 75. 






* 

Flow conductors identified in 
array 17, page 114 


Comments added to 


listing of 


input data to clarify input of flow systems 
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II 


SRnPLC pflcaicn fqm sino* version v 



I20.-112, 

»9. 

75. 

0 





III. - 

90, 

in. 

75. 

0 





m. - 

96, 

113, 

75. 

» 





111 , - 

n. 

119. 

75. 

6 





iw, - 

99, 

U9, 

75, 

6 





125, -113, 

119. 

150, 

8 





126,-106, 

115. 

300. 

8 





127,-119, 

115, 

3C0. 

« 





120,-115, 

IHp 

300. 

8 





129,-116, 

III, 

25. 

8 





no, - 

30. 

105, 

75, 

8 





nw - 

36. 

105, 

75, 

8 





Ml, IIT, 

1 , 

Ip 

* p 

201 , 

I, 

100 . 

REn 

NG NOG 

IS 

NA 

INA 

N8 

INB 6 


un •ROi, 

8 , 

Ip 

202 , 

6 . 

900, 

0 , 1 . 

59E-8 

6 EM -^09, 

B* 

tp 

203. 

6 . 

900, 

0, 2.59E-8 

€th -*IT. 

8 , 

Ip 

209. 

8 , 

900, 

Op 2. 

59E-8 

6 EN -^25, 

0 , 

Ip 

205, 

8 p 

900, 

0 , 2.59E-8 

SEN -R33, 

s» 

Ip 

250, 

8 , 

900, 

0 , 0. 

60E-9 

SEN -RRl, 

8 , 

Ip 

251, 

0 p 

900, 

0 , 0, 

68E-9 

SEN 

8 , 

», 

252, 

8 p 

900, 

0 , 0, 

68E-9 

SEN M57, 

8 , 

3p 

253, 

8 p 

900, 

0 , 0. 

68E-9 

END 









NEIRTIVE CONOUCTOR hUtlBERS 





1 

TKRLf 


10 



1 

2 

3 

II 

THAU 


20 



II 

12 

13 

tl 

THAU 


30 



21 

22 

23 


THAU 


NO 



31 

32 

33 

N1 

THAU 


50 



91 

92 

93 

91 

THAU 


60 



51 

52 

53 

SI 

THAU 


70 



61 

62 

63 

71 

THAU 


80 



71 

T2 

73 

Si 

THAU 


90 



81 

12 

83 

91 

THRU 


100 



91 

92 

93 

101 

THAU 


no 



101 

102 

103 

111 

THAU 


120 



111 

112 

m 

121 

THAU 


130 



121 

122 

123 

\^\ 

THAU 


190 



131 

201 

202 

191 

THAU 


ISO 



210 

211 

212 

tsi 

THRU 


160 



220 

221 

222 

IM 

THAU 


170 



230 

231 

232 

m 

THAU 


180 



290 

291 

292 

101 

THAU 


190 



250 

251 

252 

191 

THAU 


200 



260 

261 

262 

201 

THRU 


21C 



270 

271 

272 

211 

THAU 


220 



280 

281 

2?2 

221 

THAU 


230 



290 

291 

292 

231 

THAU 


2«iO 



330 

331 

302 

291 

THRU 


253 



310 

311 

312 

291 

THAU 


26 C 



903 

909 

905 

U\ 

THAU 


273 



913 

919 

•15 

271 

THAU 


283 



923 

929 

925 

221 

THAU 


290 



933 

939 

935 

291 

THRU 


330 



993 

999 

995 

301 

THRU 


313 



953 

959 

955 

311 

THRU 


312 



963 

•69 



pm 2S02I1 PAGE 


• CONVECTION ~ Connection conductor identified 
VR.OIRTION in array 16, page 112 


$ 

5 


HCtUAt CONDUCTOR ML^F8ERS 


9 

5 

6 

7 

a 

9 

10 

19 

15 

16 

17 

18 

19 

20 

29 

25 

26 

27 

28 

29 

30 

39 

35 

36 

37 

38 

39 

90 

99 

95 

96 

97 

98 

99 

50 

59 

55 

56 

57 

58 

59 

60 

69 

69 

66 

67 

69 

69 

70 

79 

75 

76 

77 

78 

79 

00 

89 

85 

86 

87 

88 

89 

90 

99 

95 

96 

97 

99 

99 

100 

109 

105 

106 

107 

100 

109 

no 

U9 

115 

116 

117 

110 

119 

120 

129 

125 

126 

127 

120 

129 

no 

203 

209 

205 

206 

207 

200 

207 

213 

219 

215 

216 

217 

210 

217 

223 

229 

225 

226 

227 

220 

227 

233 

239 

235 

236 

237 

238 

237 

293 

299 

295 

296 

29 7 

290 

29 9 

253 

259 

255 

256 

25 7 

250 

25 9 

263 

269 

265 

266 

267 

26 8 

26 9 

273 

279 

275 

276 

277 

270 

279 

283 

289 

285 

286 

237 

290 

2^9 

293 

299 

275 

276 

277 

290 

277 

303 

309 

305 

306 

207 

309 

307 

313 

319 

115 

316 

317 

*01 

95? 

-Of 

907 

908 

907 

•10 

911 

912 

916 

9|7 

915 

919 

•20 

•21 

•22 

926 

927 

928 

•27 

933 

931 

•32 

936 

937 

938 

937 

Uli^ 

991 

•92 

•■<6 

997 

9B3 

•i9q 

950 

951 

•5? 

956 

957 

*50 

959 

960 

•61 

•62 


no 




sunfic rso!Lr« ran si^on vcnsiON % onri «02T3 nnGt u 

coivoucian nNKtvsis.** iintnn ■ MouTiaN » in, TOUL • conjicctions » au 

tco aCJNSTAMTS OiTA t 
TlrEl;D,3.0 » 

DTircI^O.Ol t 

moop ,ica i 

onxcp.o.oi $ 

nHXcn.0.01 i 

OUTPUT. i.o 

i,n,o 

rmo * 

CaNSTintS analysis*** cst* « I, iOOtP « ii P Hi# total » 131 

ICO lARRAY DATA 


1 


FREaN-2t SPECIFIC 

HEAT 





-noo. 

f 

.223 , -213. 

0 

.223 

# 

-217. 

,3 

.723 

-Z12, 

*3 

.723 , -211. 

0 

.223 

# 

-160. 

0 

.229 

•llO. 

# 

-223 , -iO. 

0 

.231 

0 

0. 

0 

.237 

no* 


. 2 nn , no. 

# 

.259 

0 

120, 

0 

.269 

mo. 


.27n , 150. 

# 

.260 

0 

180. 

0 

.295 

ZAi. 


.319 







mo 









2 

i 

r«E0N-2l CCNSITV 







-noo- 

f 

no. , - 218 . 

# 

no. 

0 

-217. 

0 

no. 

-212. 

# 

no. , - 211 . 

0 

no. 

0 

-160. 

0 

109. 

-no. 

# 

09.25 , -iO, 

0 

96. 

0 

0. 

0 

ni.5 

no. 

# 

38.5 , no. 

0 

39.2 

0 

120. 

0 

31.3 

mo. 


30.1 « 150. 

0 

T9-9 

0 

130. 

0 

u. 

2ni* 

# 

in. 







CNO 









3 

« 

FBEOM-21 CE7iSITy 

Tines SPECIFIC «E*T 



-noo. 

* 

2n.53 , -213. 

0 

29.53 

0 

-217. 

0 

909,53 

-212. 


non.53 , - 211 . 

0 

29.53 

0 

-160. 

0 

23.30 

-no. 

# 

22. i3 . “iO. 

0 

22.16 

0 

0. 

0 

21.69 

no. 

# 

21.59 , no- 

0 

21.39 

0 

120. 

0 

21.60 

mo. 

# 

21. 9S p 150. 

0 

22.37 

0 

130. 

0 

22.92 

2ns. 

f 

21.73 







cno 









n 

i 

ALtfTiINl’f* SPEC in C 

HEAT 





-noo. 

« 

.092 , -300- 

0 

.129 

0 

-200. 

0 

.152 

-100. 

» 

-175 p 0. 

0 

.192 

0 

IQO. 

0 

.209 

200. 

# 

.219 







cno 






■* 



9 

& 

FBEON-21 VISroSITV 






-noo. 


19.1 p -212. 


19.1 

0 

-211. 

0 

in.i 

-200. 

# 

18.5 p -2Cfr. 


16.55 

0 

-203. 

0 

19.75 

-200. 

# 

13.7 p -19^. 


U.5 

0 

-191. 

0 

10.8 

-lee. 


10.03 p -ie*». 


9,25 

0 

-173, 

0 

13.1 

-172. 

« 

7.12 , -166. 


6.36 

0 

-160. 

0 

5.72 

-I9n. 

* 

5-21 p -ms. 


•.75 

0 

-192. 

0 

9.32 

-I3i. 


3.96 , -130. 


3.63 

0 

•129. 

0 

3.92 

-Hi. 

9 

3.16 p -112. 


2.81 

0 

-76. 

0 

2.02 

-no. 

0 

1.62 p 0. 


I.IT 

0 

30. 

0 

.999 

io. 

# 

.070 p 100- 


.726 

0 

160. 

0 

.561 

2iC. 

f 

.396 







END 









i 

s 

FBEan-2l mEarAL 

CO 

NCUCTIVITY 




-noo. 

* 

o.m p 0.0 

0 

0.075 

0 

250. 

0 

0,035 


m 



S»r#LC fftailtn fOA S!NDA VCRStOII V 


0AT£ M02I73 MCE If 


IKS 

f « CNISSIVIIV 

-«0. ^ . 3*0. ^ 0.^3 .two 

It t IMET lErPERATURf VS Tir.E 

0, «0. , 20. , to. 

tt « IKLET flOk* RATE VS Un 

0. ^ 2S00. . 20- , 2500- ,C«0 

u s HTp cem 

1000,0, 175000,0 
' 2000.0, 155**0.0 


3000-0. lOCOCO.O 
AOOO.O. 25000.0, C>J0 


15 

i f*%EL HEAT rU'X VS T!P£ 




0. 

, «. . 20. 


, 90 

- 

.END 

' 

U 

f CONVECTION 

CATA 

.ACAT 





ENO , 

RHT .Tt'BE.FLFP. 

TYPE, 

Y 



F2 

6 crippi^fujio Liw 

*t20l. 

1.35 , *.»n 


1, 

12. 


10, 

1-0 

6 S,AHT,TL*8,FL,TYP 

«C202, 

1.17 . *.*T2 


7. 

15.25 


1-0. 

t-0 

5 

•C203, 

1.17 , *.#T3 


2* 

U.5 


1^0. 

l-O 

t 

•0205, 

1-17 , 


z. 

21-75 


t-0. 

1-0 

6 

•G205, 

1-17 , f.*T5 


2, 

29-0 



1,0 

$ 

•620*, 

1.35 , 6.»T6 


Ir 

36.0 


1-0. 

l.O 

A 

•6207, 

-5*25. 5.^T7 


3. 

5- 


1-0. 

t.o 

0 

•6208, 

1-17 , 5,*Tfl 


2r 

8-25 


1-0. 

1.0 

5 

•6209, 

1.17 . 5, *79 


2. 

11.5 


1.0. 

t-0 

5 

•6210. 

1.17 . 5, •no 


2. 

19.75 


1*0. 

1.0 

* 

•6211, 

1.17 . 5. •Til 


2. 

10.0 


1-0. 

1.0 

5. 

•6212. 

.5*25. 5. *712 


3, 

23.0 


1-0, 

1-0 

6 

•6213. 

.5*25, 7. *713 


3. 

5- 


1*6. 

t-0 

s 

•6215. 

1.17 , 7,^T15 


2, 

0.25 


l.C, 

1.0 

m 

•6215. 

1.17 , 7.*T15 


2, 

U-5 


1-0, 

t-0 

6 

•62U. 

1.17 . 7. *716 


2, 

15-75 


1-0, 

i-0 


•6217. 

1-17 . 7. •717 


2, 

18.0 


1.0. 

I-O 

6 . 

•621S. 

-5*25, 7.#T18 


3. 

23.0 


1.0. 

1-0 

t 

•6219. 

1.35 , 8. *719 


1. 

12.0 


1-0. 

1-0 

6 

♦6220. 

1.17 , 8. *720 


2. 

15.25 


1-0. 

1.0 

5 

•6221, 

1-17 . e,»T2l 


2. 

10.5 


l.C. 

1-0 

5 

•6222, 

1-17 . 8.»T22 


2- 

21.75 


1.0. 

1-0 

#• 

•G223, 

1.17 , 8. *723 


2. 

29.0 


1-6. 

1.0 

# 

•6225. 

1-35 . 8. •725 


1. 

36.0 


t-0. 

1.0 


•6225, 

1-35 .25,-T25 


t. 

12-3 


t.O, 

1.0 

t 

•622*. 

1-17 .25, *72* 


2. 

15.25 


1-0. 

l.O 


•6227. 

1.17 ,25. *727 


2. 

10.5 


1.0, 

1.0 

#■ 

•6228. 

1.17 .25. *722 


2. 

21.75 


l-O, 

1,0 


•6229. 

1.17 .25, *72? 


2- 

25. 


1-0. 

1-0 


•6230. 

1-35 .25^*730 


1- 

36-0 . 


1-0. 

l-O 


•6231. 

.5*25.23.*T2l 



5.0 


1.0, 

1.0 


•6232, 

l.l? .23.*T22 


2. 

P-25 


1-0. 

1-6 


•6233. 

1.17 .23.-733 


K 

11-5 


1-0, 

1-9 

j* 

•6235, 

1.17 .23.-735 


2. 

19-75 


1-0, 

1.0 


•6235. 

1.17 .23. *725 


2- 

IP.O 


1.0, 

1.6 


•6?3f, 

-?*25.23.-T3* 


3, 

23.6 


1-0, 

1.6 

% 

•6237. 

.5*25. 21. *737 


3 

5-6 


1-0. 

1-6 


•6238. 

1.17 ,21. *73? 


2] 

0.25 


1-0, 

1-6 


•6239, 

1.17 ,21. *739 


2, 

11.5 


1-0, 

1.6 

e 

•G2^0. 

1.17 .21.*7*C 


2. 

19-75 


1-6, 

16 

% 

•S251. 

1-17 .21. *751 


2. 

10.6 


1.0, 

1,6 

z 

•G2^2, 

-5*25, 21. *752 


3, 

23-0 


1.0, 

1.6 

• ^ 


ADAT array for convection con- 
ductors ;descri bed on page 49 an 
the last argument to subroutine 
CONVl on page 121 
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s*nHE PfiaftLcn Fan jind* vcksicn « 



1.39 ,22,*T^3 


K 

12.0 


UOp 

t.O 8 


1,11 ,22, *799 


2p 

19.25 


10. 

1.0 0 

•S2^9, 

1.17 ,22,*T95 


2, 

18.5 


1.0, 

UO 6 


1.17 ,22,*T96 


2. 

21.75 


l.Op 

1,0 0 


1.17 ,22.*T97 


2. 

25.0 


l.Op 

1.0 t 

•629S, 

1.35 ,22.*T98 


Ip 

36.0 


1.0, 

1,0 6 

•D2^9, 

1,35 ,16.*T99 


tp 

12.0 


1.0, 

1.0 5 

•G250« 

,0082.U.*T50 


9p 

12.25 


UO, 

1.0 6 

•C2SI, 

.6082.16,*T51 


9, 

12.5 


1.0, 

t.O 6 

«C2S2, 

.0082.16,*T52 


9, 

12.75 


lop 

l.O 0 

•C2S9, 

.0082, 16, *153 



11.0 


1.0, 

1.0 0 

f$259. 

1.35 ,U,*T59 


u 

25.0 


1.0, 

1,0 6 

•G255» 

.9625,19,*T59 


2p 

5.0 


1.0, 

1,0 t 

^«C296« 

.0082, 15. *756 


9, 

5.25 


l.O, 

1,0 6 

i*C29l, 

.0682.15,*T57 


9, 

5.50 


l.O, 

1.0 0 

#C29S, 

.0082. 15. *158 


9, 

9.75 


1.0, 

1.0 0 

•6299, 

,0082,15.*T59 


9p 

6.0 


1.0, 

1.0 0 

•6260, 

.9625,15,*T60 


3p 

11.0 


1.0, 

1.0 t 

•C261, 

.9625, 13. •T6! 


3p 

5.0 


1.0, 

1.0 5 

^•G262, 

.0082.13,*T62 


9, 

5.25 


1.0, 

t.O i 

•G263, 

.00e2,13,*T63 


9, 

5.50 


1.0, 

1,0 0 

•6269, 

.0082,13,*T69 


9, 

5.75 


1.0, 

1,0 5 

.•6265, 

.0082,13,*T65 


9, 

6.0 


1.0, 

1,0 $ 

•6266, 

.9625,13,*T66 


3, 

u.o 


l.Op 

1.0 t 

^•G267, 

1.35 ,19,*T6T 


u 

12.0 


l.O, 

1,0 & 

«*626a. 

,0082.19.*T68 


9, 

12.25 


l.O, 

1.0 0 

e •6269, 

.0082, 19, *769 


9, 

12.50 


1.0, 

1.0 t 

«¥6270^ 

.0082, 19, *770 


9, 

12.75 


1.0, 

l.O 6 

««C271^ 

.0082, 19, *771 


9p 

13.0 


1.0, 

1.0 t 

*•6272, 

1.35 ,13, *772 


tp 

25.0 


l-O. 

1.0 t 

-96273, 

1.35 ,30. *773 


Ip 

12.0 


1,0, 

1,0 8 

a 96279, 

.0082. 30, *779 


9, 

12.25 


1.0, 

1,0 z 

♦•6275, 

,0082, 30, *779 


9p 

12.5 


l.Op 

1,0 z 

o9$276. 

.0082, 30, *776 


9, 

12.75 


l.O, 

1.0 t 

»fC278, 

1.35 ,30. *778 


Ip 

25.0 


l.O, 

1.0 z 

.•6279, 

.9625, 29. *779 


3p 

5. 


1.0, 

1,0 z 

♦•6260, 

.0082. 29, *780 


9p 

5,25 


1.0, 

1.0 z 

*•6281, 

.0082, 29. *781 


9p 

5.5 


1.0, 

1.0 z 

*•6282, 

.0082. 29. *782 


9, 

5.75 


1.0, 

1.0 t 

*•6283, 

.0082. 29. *783 


9, 

6.0 


1.0. 

l.O Z 

♦•6289^ 

.5625. 29. *789 


3p 

11.0 


l.O, 

1.0 z 

♦•6285, 

,5625. 31. *785 



5. 


l.Op 

1.0 z 

*•6286, 

.0082, 31. *786 


9p 

5,25 


l.O, 

1.0 z 

*•6287^ 

.0082.31 ,*7^7 


9p 

5.5 


1.0, 

1.0 Z 

»9C288 , 

.0082. 31, *788 


S 

5.75 


l.O, 

1.0 z 

♦•6289, 

.0082.3I,*789 


9p 

6.0 


t.o. 

1.0 Z 

*•6290, 

.9625, 31. *790 


3. 

U.O 


1.0, 

1.0 z 

♦•6291, 

1.35 .32. *791 


Ip 

12.0 


I.Op 

1,0 z 

^•6292, 

.0082. 32, *792 


9p 

12.25 


l.O, 

l.O z 

♦•6293. 

.CC?2.32,*793 



12.5 


1.0. 

1,0 z 

/t299. 

.0082. 32. *794 


s 

12.75 


KO, 

1.0 z 

•6295, 

.0082. 32. *795 


9, 

13.0 


1.0, 

1,0 5 

1*6296, 

1.35 .32. *796 


Ip 

25.0 


l.G, 

1.0 z 

•6297, 

.5625. I.*797 


3p 

5.0 


1.0, 

1.0 z 

♦•6298, 

.5625, 2, *798 


^p 

5.0 


UO, 

1.0 t 

.^•6299, 

2.25 . 3. *799 


5p 

20.0 


1.0, 

l.O 2 

*•6360, 

.7875, •.*7100. 

«P 

7.0 


l.Op 

1.0 z 

•6301, 

.7875, 9, *7101. 

«P 

7.0 


1,0, 

1.0 Z 
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s*nnr pftCBirn ron sinca vcasiom n 


•C30?, 

•C103, 

•C305, 


*G308, 

• 0309 , 

•6310, 

•6311, 

•6312, 

•6313, 


•63U, 

•631T, 

€ND 

tr 


}«t .lo,•no^. 

A, 

2.9 

# 

1.0, 

1.0 

• 

lat 

A, 

2.9 

# 

l.O, 

1.0 

A 

T8T5, 20, •110*1, 

8. 

T.O 

• 

t-0. 

1.0 

• 

TBT5,25,*T105, 


T.O 

« 

1.0, 

l.O 

% 

25 .26,»n06, 

5, 

23,0 

« 

1.0, 

t.o 

0 

25 ,u,«noT, 

5, 

20.0 


1.0, 

1.0 

0 

T8I5,I2,»Tl0a, 

8. 

7.6 

* 

KO, 

1.0 

0 

TSIS.IT.pTIOO, 

8. 

7.0 

9 

1.0, 

1.0 

% 

,28k ,19. •mo. 

A, 

2.5 

9 

1.0, 

1.0 

s 

,2«J ,27, •Till, 

A, 

2.5 

9 

1.0, 

1.0 


,T875,20,«T112, 

8. 

7.0 

9 

1.0, 

1.0 

ft 

.7875, 33, *7113, 


7.0 

9 

1.0, 

1.0 

ft 

,25 ,3<*.*TU*i, 

5, 

20.0 

9 

l.O, 

1.0 

ft 

.♦2 ,35, •7115, 


50.0 

9 

l.O, 

1.0 

ft 

.225 ,36,»7IU, 


2.0 

9 

1-0, 

l.O 

ft 

.5t2S,17,*7llT, 

3, 

5.0 

9 

KO, 

t.o 

ft 


6 Flow tOIVCUCTDR DATA 


•61 ,*n , 

h ft 

»C2 ,*T2 , 

6 ft 

•63 ,*T3 » 

h ft 

•69 ,*T9 , 

6 ft 

•65 ,*T5 , 

A ft 

•66 ,»T7 , 

9 ft 

•67 ,*T6 , 

9 ft 

•68 ,*T9 , 

5 ft 

•69 ,»T10 , 

5 ft 

•CIO ,*Tlt , 

5 ft 

•611 ,*T13 , 

T ft 

•612 ,^T19 , 

T ft 

•613 ,*T15 , 

T ft 

•619 ,*T16 , 

T ft 

•615 ,*T17 , 

7 ft 

•616 ,*T19 , 

6 ft 

•617 ,»T20 , 

8 0 

•618 ,^T21 , 

0 ft 

•619 ,*T22 , 

8 ft 

•620 ,*T23 , 

0 ft 

•621 ,•125 , 

29 ft 

•622 ,*T26 , 

29 ft 

•G23 ,»T27 , 

IH ft 

•629 ,*T28 , 

29 ft 

•G25 ,*T29 , 

29 ft 

•626 ^•T31 , 

23 ft 

•627 ,*T32 , 

23 ft 

•628 ,*T33 , 

23 ft 

•629 ,^T39 , 

23 5 

•630 ,*T35 , 

23 ft 

•631 ,*T37 , 

21 ft 

•632 ^•T30 , 

21 5 

•633 ,*T39 , 

21 ft 

• G39 ,*T**0 , 

21 ft 

•635 ,*THl , 

21 ft 

•636 ,»T«*3 , 

22 ft 

•G3T , 

22 ft 

•630 ,*rs5 , 

22 ft 

•639 , 

22 ft 

•690 .•T97 , 

22 ft 




OATI 330^73 PAGF 19 


ADAT array (cont'd) 


ADAT1 array described on page 
53 and the third argument to 
FLOCNl on page 121 
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sowtr 

PRSBieTl FQR SI^C* VCRSldm 9 


16 

6 

,*T50 , 

16 

S- 

•6<0 ,#T51 , 

16 

5 

•6M *«T52 , 

U 

« 

•6^S ,*T53 , 

U 

0 

,*T55 , 

19 

g 

•G^T , 

15 

i 

•6^8 .MST , 

15 

* 

•6^1 ,«T58 , 

15 

* 

•C50 , 

15 

5 

•S5J , 

13 

8 

•G52 ,»T62 , 

13 

0 

•GSJ ,*TI,3 , 

13 

6 

•C5^ ,*T6% , 

13 

t 

•G$5 ,*T65 , 

13 

t 

•C5« ,*U7 , 

19 

2 

•657 ,*U8 , 

19 

6 

•CSe ,*T69 , 

19 

0 

iC59 ,*T70 , 

19 


iGtO ,*TTl , 

19 


•G6t ,*T73 , 

30 

6 

•Zil ,9irH , 

30 

* 

•ZiZ ,*T75 , 

36 

# 

,*T76 

30 


•G65 ,»T77 , 

30 

6 

•GiG ,^T79 , 

29 


•647 , 

29 

6 

•S4S ,*T«1 , 

29 

0 

♦641 ,#762 , 

29 


•670 ,*T03 , 

29 


•671 ,»T85 , 

31 

6 

♦672 ,*T86 , 

31 

6 

•673 ,*T87 , 

31 

6 

•67i .#T89 , 

31 

0 

•675 .•Tfil , 

31 

0 

•674 ,#T11 ^ 

32 


•G77,,*T12 , 

32 

t 

•G7e^,*T13 , 

32 

0 

•679.,*T9*l , 

32 


•680 ,«T15 ^ 

32 

s 

*681 ,*T200, 

1 


•682, ,*m , 

2 

t 

•683., *797 , 

36 


•685^, *198 , 

3 

5 

•G85-,»T9a , 

11 

> 

•684 ,*T99 , 

7 


•687 ,*799 , 

A 

•• 

•688 ,*T99 , 

• 


•689 ,»TI60, 

6 

S 

•690 ,*TIOO, 

5 


•691 ,»T18 ^ 

7 

s 

•692 ,^T2H , 

8 

i 

•693 ,*T 8 ^ 

6 


•699 ,#712 , 

5 


•695 ,»TI01, 

9 


•698 ,*T152, 

19 


•697 ,»TI53^ 

2*» 

« 

• 698 ,*no3. 

22 
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SAnflC r«08LEH FOR SIND* VERSION ^ 

•CIV ,*T103, 30 S 
•6100, -nov, 21 S 
•6101, •nov. 23 5 
•6102. •TVZ , 21 » 

•G103.*T<t8 , 22 i 
•C10^,«T105, 25 ^ 

•6105,*T107, U ft 
•6106. *1107, 15 ft 
•6107. •T107, 12 ft 

•610I.VT108, n ft 

•6109, •TIOS, 19 ft 
•6110, *T59 , U ft 
•6111, *T60 , is ft 

•6112. *T66 , 13 ft \ 

•Cm,*T72 , 19 5 / 

•C119,#T109. 17 ft 

•6I15.*T110, 27 ft 

•GIU.»T1II, 31 ft 

•6117, #7111, 32 ft 

•6lU.*TUI, 20 ft 

•6119, *1112, 30 ft 

• 6120, •TU2, 29 ft 

•6121, •TVO , 31 ft 

•8122, *T96 , 32 ft 

•6123,»T78 , 30 ft 

•6129, *189 , 29 ft 

•6125. •T1I3. 33 ft 

•6126. •T1C6, 26 ft 

•6127, *7119, 39 ft 

•6120, •7115, 35 ft 

•6129, •7116, 36 ft 

•6130, •730 , 29 ft 

•6131, *736 . 23 ft ^ 

ENO 

20 ft OFLOU 

•A21 ft ARflftV CONTAINING FlOW RA7f$ 

•A22 ft array containing PftCSSt’RES 
•A23 ft array rONTAlNlN? f I OU COVCl'CTORS 
- • ^ «A29 ft ARRAY CONTAINING VAl VF POSITIONS 

• A25 ft ARRAY CONTAINING P-NOCE tf^POSFC FLOW R 
. #A26 ft ARRAY CONTAINING FU’IO U*rP TYPE CATA 
*A27 ft ARRAY CONTAINING ACCcC RESISTd-StES 
f‘‘ «A20 ft ARRttY CONTAINING PRFSSL'RE ORO?S 
INO 
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ADATl array (cont’d) 



21 

ft 

FLOW RATES ,AW 








2C0. 


200, 

, 200. 

* 

200. 

p 

260. 

p 

200.1 


200. 


200. 

, 200. 

p 

200. 

p 

200. 

p 

200. > 

r 

200. 


200- 

. 200. 

m 

200. 

m 

200. 

9 

200. 

- ; ' 

200. 


200. 

, 200. 

P 

2C0. 

p 

200. 

P 

200. 1 


200. 


200. 

. 200. 

P 

200. 

9 

200. 

P 

255. 


200. 


200. 

, 2C0. 

P 

200. 

p 

250- 

P 

250. I 


200. 


200. 

, 200. 








AFLOW array described on page 71 and 
the first argument in the call to PFCS 
on page 121 (also first argument to 
CONVl) 


AW array described- on page 72 and 
referenced in array 20 above 


CMO 

2? t PlitSj'.’SCS 

$p*ce,2« 

fNO 

13 s FLOW cofcC'.-rTja; 
SP«CE,3? 


array described on page 72 
array described on page 72 
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S«r»LC rROBLCfl FOR SIRDR VERSION V 

j* AVP array described on page 72 
^ AIFR array described on page 72 

flWIB me D«T«— UP.es*. Fit, NfF.NHt.ffC 


ORTC tf02IS PACE 12 


IRQ 

m t VRtVF PgSITIORS 

0.111, 0.11 

fW 

21 S IRPaStD FLOW RATES 
100., SPACE, 2S 

EDO 
t6 


l€« 


V? 


eSA 


FLL 

. 

PFF ,NHl, 

FFC 




.1125 


.001008 

* 

12, 

0 

0, 0. , 

t. 

% 

TYPE 


.3600 


.000939 

9 

3,25 

9 

o.n».. 

1. 

% 

TYPE 


.1125 


.001008 

9 

5. 

0 

0. «. , 

1. 

% 

TYPE 


.0326 

# 

-653E-9 

9 

0.25 

9 

0.2.11, 


ft 

TYPE 


.1125 


.001008 

9 

20. 

0 

0, 0. , 

i! 

ft 

TYPE 


.1125 

P 

.001008 

f 

2.5 

0 

0, 0. , 

1. 

ft 

TYPE 


.1125 

0 

.001009 

0 

50. 

0 

0, 0. . 

1. 

ft 

TYPE 


,1125 

§ 

.001008 

0 

T. 

0 

0, 0. , 

1. 

ft 

TYPE 


.1125 

0 

.001008 

0 

2. 

0 

0, 0. . 

t. 

ft 

TYPE 





AFT array containing the fluid type 
data described on page 72 and 
referenced in array 51. 


ADOEO resistances 
31 


END 
IT « 

. SPACE, 

ENO. 

22 « PRESSURE DROPS 

SPACE, 31 


F * ' 
(j r A* 


CKtD 

30 


] 

} 


AFR array described on page 72 
APD array described on page 73 


SVSTCn 
0 




10 CO>JTAlW|*JG SYSTEM PROPERTY 10 

10 AA»AY C0AITA1NI\5 SOltiTiaN PARAinE|£RS 
ID ARRAY ^AIN UETl'ORK 

10 ARRAY CO^TAIM^JG 10 OF VALVE DATA 
10 ARRAY CONTAINING Pl’rP DATA 
CHECKOUT PRINT CODE 


Afn 


t 

•A31 
•A32 

•A36 

0 

ENO 
31 

•At 
•A2 

• A5 

• A6 

^17312005 
END 

' o.ot^ 

END 

pMN t NAPE 

'' ♦A3A t ARRAY 10 PRESS NOCES WP SPECfFIEO 
«A36^ S ARRAY IC arrays CCNTAINING VALVE DATA 
TUBE ,raO«,TO ,SS,Ft^TB C 


ADAT array described on page 71 
and the second argument in the 
call to PFCS on page 121 


CP ARAAY 
P3 ARRAY 
r\3 ARRAY 

IT array 

cc 


APR array described 
identified in array 


on page 73 and 
30 


^ ASCI, SOLUTION PARArETERS 
too, 0,0, 0,7 i TOL, fJTPASS, EPS, F«CF 


} 


ASOL array described on 
and identified in array 


page 

30 


74 


,P 

-IWO.P 


A: 


1. 

1. 

2, 1.*A37 

0 

rAlN NETUORK 

2, 

^0 

3. 1.-A3? 



3, 

3f 

N. I.»A39 





17,-1.*A4iO 

m 

S'jANEru^RK 1 

26. 


18. I,•A•1 



11. 

3. 

9, 1,*A^2 



39. 

^9 

22,-1.*ai*3 

0 

SV«NETui?Ra 2 

3'. 

2?r 

10. l.*A*>^ 



35. 

IF. 

73. 1.-AA5 




> 


ANET array for the main network 
described on page 74 and identified 
in array 30. 
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e«TE 2S027) PACE 


23 


$*VLC PAOKlEn FOR SI 7 JO* VERSION « 
it. 2, 23, l.'Ali I 

1?. 23. 2A, i,*Av7 ^ array 33. 

'”v, 2A.W0 * WOES u/sPEcifiEo PRESSURES — APNPS array described on p. 75 & identified in/ jj 

3«, I, 2R. ‘An, ENo — AP, array containing pump data described on page 77 and identified 

.END « RRRAYS’cONTRINfNS VRLVE ORTR ^ r>A 


3», .RO.fRU 
REN RNO .fluid. IYP,n'»E 
RER 










,€KO 


TV8E 

1 



,rN0 

i 

TUBE 

2 


8. *1299 

,F^0 

$ 

Tl'BE 

5 


5.*T30^ 

.FNO 

t 

TL'BE 

26 


5,»T307 


% 

TUBE 

It 


5, •nil 


J 

TUBE 

39 



,C^O 

* 

TUBE 

35 


9.*T3U 


s 

TUBE 

36 


3,*T3ir 

,EPiO 

0 

TUBE 

3r 


,1,. 001. -999, .01 

.•Tll7,35., 

CKO d 

CAT8 FOA 

valve 

1 




n. t, 0 

.0!, 0. 

99| 


CKO « 

CAT* rOR 

valve 

2 









5081 $ 

KAfiC 






AVLS and AVL array in array 30 
described on page 76 
and referenced in array 30(AVLS) and 
array 33 (AVL) 

ADI arrays for the main network; described on page 
75 and referenced in array 33 


} 


AVLV arrays containing valve data 
described on page 76 and referenced 
in the AVL array 36 


xcn 

TUBE .FRUN.TO ,SS,Fl*n S 



ACPI 


«0,P-«iO.*0,U'PP «i 




^iP 


•A51 

A SUBKETUORK 



5, s S 

♦A52 

t 




ie S 1. 

♦A5 3 

< 




s s 

♦A59 





5, 1, 

•A55 





5, T, 1, 

•A56 





T, 8, 1, 

•A97 

s 



^ IS 

«. IS s 

•A5B 

£ 




19, U, 1, 

• A59 

* 




u, ir, i. 

•A60 

( 



«. 

IS 17, l. 

•A61 





15, 15, I, 

• Af? 





IS IS 1, 

•A^3 

* 



. 25, 

15, 17, 1, 

• A69 

5 



CP^O 



# 


AEfl 

ak: 'Fiiro, 

TYF^TueF 






,IU^F 





51, *110: 

i, Tico, 

EKD 

0 TUBE 

9 

“ ; ♦ 

52, *TT 

, 3, *7207 


S TUBE 

5 


• TB 

, 2, •TJO? 





♦T9 

, 7. '^209 


» 



•TIO 

, 2, •T210 


c 



• Til 

, 2, *1211 


t 



•TI2 

. 3, T2U, 

E^C 




53, •!! 

. S •T201 


t U'PE 

6 


•T2 

e 2. •T252 





• T3 

, 2, T2C3 


5 



•T9 

r 2. 


t 



•15 

r 2, *7205 


# 



• Tf 

. S '-T2D1, 

F9P 

# 



59, ein 

• 3, *7213 


£ TUBE 

1 




ANET array for subnetwork 1; described on 
page 74 and identified in ANET for the 
main network, array 33 


J 




ADi arrays for subnetwork No. 1 described 
on page 75 and referenced in array 40 


J 
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•T14 , 

2. 

• T2M 


5 



«T1S ^ 

2, 

• T2I5 


t 




2. 

• T214 


4 



•Til , 

2. 

•T2U 


4 



•Tl« p 

3r 

•T2lfl, 

tKO 

4 



55. MM . 


♦ TIM 


t TUBE 

a 


•T20 . 

2, 

• T220 


4 



•T21 . 

2, 

•T221 


4 



•T22 . 

2. 

♦ T222 


4 



•T23 , 

2, 

• 1223 


4 



•T24 , 

1, 

• T22«i, 

€«<0 

4 



54. •IlOl, 


•T301, 

ERiD 

4 TUBE 

5 

7 

5T, •T102, 

4, 

•T302, 

E^D 

4 7UBE 

10 


58. *1103, 

4p 

♦T303, 

Ef;0 

4 7L‘BE 

15 


51. •T104, 

e. 

•T3QH, 

END 

4 Tl‘8E 

20 


40, •T3T , 

\ 

• T?37 


4 TUBE 

21 


. •TIS . 

2, 

•T238 


4 



. #115 , 

2, 

•T235 


4 



•T40 , 

2. 

•T2SO 


4 



•T51 , 

2, 

•T2St 


4 



* •T42 , 

3« 

•T2*i2, 

eno 

4 



41, «t^3 , 

1, 

•T243 


5 TUBE 

22 


- , 

2, 

•T2^4 


4 



. ♦T45 , 

2, 

•T245 


4 


7- 

♦T44 , 

2, 

•T24t 


4 



•T4| , 

2. 

•T24I 


< 



M^e , 

1, 

•T248, 

END 

4 



42/ *T3l , 

3, 

• T231 


4 TUBE 

23 


* -T32 , 

2. 

•T232 


4 



. •TIT , 

2* 

•7233 


4 


; 

■ *134 , 

2, 

•T234 


4 


7 

* *T35 , 

2, 

• T235 


4 


« 

. *134 , 

3. 

•7234, 

r«^D 

4 



* 4V ^ 

1. 

• T2?5 


4 TUBE 

!• 


* - •124 , 

2, 

•T224 


A 



t- •121 , 

2. 

• T227 


4 



. •T20 , 

2. 

• T228 


4 



*124 , 

2, 

• 7224 


4 



* MTO , 

K 

•7230, 

END 




4%, *1105, 

8, 

•7305, 

EAID 

* Tt'SE 

as 




Sl»82 t NAre 
*. 0 c 

. 0 5 

Tcef ,fPi3n,T0 ,S5,PL*TB t 
OEn ,^-KO,P-N'0,K3,U'r.P 


. 12, 


H. 

1. 

• 4M 

n. 

11 , 

12. 

1. 

• 472 

. H, 

n. 

12. 

1 . 

• A73 



M, 

1. 

• 4T‘( 

. U, 


10 . 


• 475 


M, 

12 . 


• 474 

18 , 

12 , 

n. 

i! 

• 477 

21 , 

13 . 

M. 

i. 

• 478 

28 , 

M, 

21 . 

i. 

• 479 

28 . 

21 . 

22. 

1 . 

• 480 

33 . 

21 . 

22. 

1 . 

• 481 

• 31 , 

M. 

20. 

K 

•482 


SVt^ETb»jaK 1 
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ADi arrays for subnetwork No. 1 (Cont*d) 


ANET array for subnetwork 2; described on page 
and identified in ANET for the main network, 
array 33 


119 



SME E5027S r«CE Zf 


SftlVLE rOOBLCn rSR SIRDA VERSION 
JI, JV, *0, 1. •A«j * 

«. 10, «. I, 'MR * 


ENO 

•tn ANO ,fLUI0,TtP,TU8E 
•Elf . AUf'P 

?l. •T108, 8, »T308, EKO 
n, *T*l , 3, •T2ft 
•m , A, *T2iZ 
•W3 , A, *T2t3 
•T6A , R, •TZAR 
•TA5 , R, •T2A5 
•T*6 , 3, •T2AA, END 
IJ, •TAT , I, *1247 
•TI8 , R, •T2A8 
•TAR , R, *T249 
•TTO , R, •T270 
•m , R, *T27t 
•m , 1, »T272, END 
TR, *T55 , 3, -TZSi 

. . *T5A , R, *T25A 

. • - . *T5T , R, *T257 
•T58 , R, *7258 

•T5R , R, ‘TaSR 

; *TAO , 3, «T2A0, END 

T5, *TRR , t, •T2R9 

i" I ;*T50 , R, •T250 
; . ,T51 , R, *T251 

*751 , R, ‘TZSZ 

c • . »T53 , R, *T253 




t tube It 
t TUBE n 

B 

« 

S 

t 

B TUBE 
» 

B 

B 

* 

t TUBE 15 
B 


B TUBE H 

B 

B 

B 

B 


> 


C' - 

•T5^ , 

1, 

•T259^ ENO 

B 




•TlOB, 

e. 

#T309^ 

* 

TUBE 

IT 


•TUO, 

6, 

•TilO, E^D 

t 

TUBE 

10 

. T«, 

•Tin, 


• T3U, E^D 

B 

TUBE 

27 

- 

•ni2. 

8* 

•T312, EKO 


TUBE 

28 


•in , 


• T279 


TUBE 

29 


•T80 , 


• T280 

5 




*T8t ^ 


• T281 

B 



• * 

•TBZ , 


•T282 

S 




•TB3 , 


• T203 

g 



r ■ 

•T81 , 


•T289, END 

5 



r>l, 

•TJ3 , 


• T273 


TUBE 

30 


•TM , 


• T27*l 

# 




•T?5 , 


•T2fS 





•TU , 


•T276 

# 




•TT7 . 


• T2T7 

t 




•T78 , 


•T278, tNC 





♦T85 , 


• T28? 


TUBE 

31 


•T06 , 


• T236 

# 




«T87 , 


•T287 

B 




•TS8 , 


•T2?B 





•T89 , 


• 7289 

5 




•T90 , 


• 7299, E«*C 





•T91 , 


• 7291 


TUBE 32 


•T9? , 


•T292 





•T93 , 


•T293 





♦T9% ^ 


• T29H 





•T95 , 


• 7295 

w 




•T9B ^ 


•7298, ESC 

5 




ADI array for subnetwork No. 2 described 
on page 75 and referenced In array 43 


12Q 

. I 



tan 150273 ^AGC 24 


'J 


$4Pnr pR^&Ltn roR sinor version 9 
•9, #1113, a. •ni3, tKO » fUBE 33 
100 

aco 9SNUTUC ECS RRaiATOA FLOW SV$TCn 
END 

no 

tCD 9FLCW RATES UO/KRI 
END 

m 

ICO 9PRESSURES CIB/FT*#2> 

CNO 

112 

acD fVAivE fosmoNS 

END 

113 

iCD ^PRESSURE DROPS fLB/FT««2> 

€N0 

END 

RRRAV ANALYSTS. Nl'PBER QF ARRAYS « 15 TOTAL LEN 6 TK a 2 SH 


aCD 3EXECt*TfON 
DtnENSION T(290O> 

NOm a 2000 
NTH « 0 

PFC$(A20«A30.A1G04|| 

CN8ACE 

END 

BCD 3VARIABIES 1 

DIDEGUTfPEN, All, 11967 

HIEFF <C. 9,500. ,A2H3T, l.O, Al, T196, TUT, T199, T200) 
FLOCNK A2l,Ai,Ain 

CONVK A29,A31,AU) 

END 

BCD SVARfABLES ? 

PFCSI A2a,A30,Al90*n 
TinCM(X|,0) 

HSTRYC A22, A29, A21 ,nrirtEU 1 
END 

BCD 30UTPUT CALLS 
TPRINT 

FlffiNTL A2l,A|lO*l ) 

FLPRNTI A2B,Am*l ) 

FLPRNK A22,Ani^l ) 

FLPRNTC A2h,AU2*1 ) 

T|AiC»iF(Kl,| ) 

ENO 


r 

r 

r 


12V 



S*Wl€ PMJttn FOR SJNOR KCRStON ♦ 


»Rsl5:3» 

lRil9:3r 



* I9T CVR 
1. IRS 
1. IK 6 


SRIE 2S0II3 PACE IF 

15 PCS n 


CRS or Fill UNIT 6 iRtU: 7 

}. TRl C 


END Ct'R ICC 1102-0035 L5 




t 122 



s«nPic rnssicn ran sixoA vtnstON « 


t*ii» 


• ro<t,i siKC« 

CWtVAC lies rORTRAN V CXCC It LEVEL 2 fA •(CXECt LEVEL E120IOOIO*) 
THIS COriRtlRTISN WAS OOKE SN 2S EE( 71 AT IRiUtOT 


min rRIGRAn 

STORAGE USEOt COOEI 1) OOOOIRi OATACOI 000001) BLAM C0nP0NC2) OOODOO 


BATE 2S02T1 rACE 28 

2S FEB T) 


eorwiON BlOCKSi 


0003 

TiTir 

00002^ 

000^ 

IZr? 

000356 

0605 

C6P 

000352 

0006 

SOl’RCC 

000352 

0007 

CQND 

000«lTO 

0010 

PCI 

000655 

0011 

PC2 

C00«*52 

0012 

50N5T 

000203 

con 


00^717 

OOl^ 

FUC3N 

000062 

0015 

inriu% 

000011 

oou 

LOGIC 

OCOOO*) 


CXTERAAL REFERENCES C BLOCK, NAnCI 

001 r IfcPUTT 
0020' EXECTN 
0021 HSTOPi 


STOAAGE ASSIGRnENT (BLOCK. TYRE, RELATIVE LOCATION, NAP£> 


0^01 

060005 

It 

6013 

000000 

« 

001% 

606022 

ARLICA 

601% 

000035 

ARLirC 

661% 

606612 

ATrPfA 

eoM 

C0C017 

ATnPCC 

cai% 

oooon 

ftAfiCUP 

001% 

COOONO 

CAiCWO 

6005 

oococo 

f 

601% 

600003 

fSorAc 

601% 

000026 

CSOrAir 

0O!% 

000020 

COOrlN 

001% 

601022 

CSr.flAt 

001% 

600030 

eSPATL 

061% 

650515 

CArpA 

001% 

COOOIl 

pAr-PO 

601% 

000031 

raucA 

001% 

CC6032 

CfltiCC 

001% 

606007 

CnrEH 

051% 

650025 

cri'^ei 

001% 

06002% 

Onr>£L 

001% 

000001 

CTirEL* 

001% 

000005 

DTrPCA 

001% 

0660U- 

OTfpre 

661% 

C6C03T 

EWOAAt. 

0007 

cocooo 

G 

0003 

coococ 


001% 

6COO%6 

1TEST 

601% 

6605%7 

JTfOT 

6512 

606556 

V 

001% 

660050 

KTEST 

CC16 1 

000003 

laa;^av 

001% 

OOCCfrO 

lAiPAC 

COlO L 

600001 

1 COWP 

coif t 

656652 

ICCNOT 

0015 

COOOlO 

U^A 

601% 

CC0033 

L1W2CT 

ecu i 

CCOOOO 

iw:cr 

001% 

OOCC23 

lP3PfT 

001% 

55553f 


0615 

600006 

Lsai 

6015 

COCOOT 

VS32 

601% 

0C0C5I 

ITEST 

CM% 

600552 

PTEOT 

651% 

6550%% 

LARl tC 

0015 

CC0005 

WAT 

601% 

C0C0%5 

WATrPC 

001% 

C000%2 

*.C5r*7> 

6015 

06050% 

wrr 

061% 

C650%3 

wcT.-:?r 

6615 

600003 

WOT 

601% 

06000% 

M33P 

0015 

600001 

KSA 

6515 

600050 


5515 

C55652 

^ %r 

061% 

CCOO%! 


C01% 

OCOOCf 

OPfITP 

COl% 

600021 


601% 

60663% 

PArroT 

656^ 

COOCOC 

9 

601% 

C0OC53 

RTfST 

6010 

600000 

0£3l 

0011 

600000 

5C32 

601% 

60505% 

5TE0T 

660% 

COOCCC 

T 

001% 

COOCf 1 

TCWTflL 

6Cl% 

CC0015 

Uf'lr. 

COl% 

CCOOOO 

TirFN 

001% 

000602 

TI^EWD 

CCI% 

60061% 


001% 

6DC055 

TTCSr 

601% 

C0005f 

LATEST 

001% 

00C057 

VTEOl 








66101 

1* 

/flTtf/ H 

66163 

!• 

CO^r:i| fur?f T 

0010% 

3* 

CCrr%W /CAP/ C 

C61C5 

%« 

ny:^Ztr 9 

6016f 

5* 

/CO'*C/ 

06107 


tZrrZK /PCI/ SC3I 


123 



OAU 290273 PAGE 


00110 

ootll 

00112 

OQIU 

00113 

00U3 

00113 

00II3 

00113 

00113 

00U3 

00113 

00113 

00113 

00111 
00115 

oono 

00117 

00120 


SAPVLE PRCOLtn FOR SI^DA VERStOM 9 
r» COnnOH />r2/ SEQ2 

0* conffOM yica^^sT/ « 

COnnON /ARRAY/ A 

io« connon /FiicciR»/ ri«fn , 


22» 

23* 

2i» 

25« 


TIPEWO, 


CSGFAC, 


tl* 

IRLCOP , 

OTnpCA, 

OPEITR. 

OTtnEH^ 

OAPPA , 

u« 

lOfiFiPO p 

ATrPCR, 

flflCAL*P, 

TirEO . 

TirEw , 

\z* 

lOTfPCC^ 

ATffPCC, 

CSGniii, 

OUTPUT, 

ARLXCA 

11* 

llOOPtT. 

OTlfiEL, 

BTIflEl, 

CSCPA7, 

CSGAAl 

15* 

ICSGRCL, 

CRLICA^ 

CRLXCC, 

tlPJECT, 

PASECT 

U« 

lABLlCC, 

L3PCS , 

ENGOAl^ 

oaleng. 

•lOCOPf 

17» 

IRCSGW , 

moynpc. 

NARLKC, 

WATWPC, 

I1E5T 

16« 

UTEST , 

ITEST , 

LTEST , 

PiTEST , 

RTEST 

15* 

15TEST , 

TTEST , 

UTEST , 

VTE5T , 

laifac 

20* 

21* 

nCNTRL 

COPnaw 

/OlPtENS/ iy?JO 

,^NA>^lT,ilCT, 

«CT,KAT,LSfli 

,IS02,IENA 


C0I20 

26* 


ISEOK 125I,5E0Z( 

00121 

27* 


UODF = .TRUE. 

00122 

28» 


LCONO s .TRUE, 

00123 

25* 


ltO^^ST s .TRUE* 

00121 

JO* 


lARRAY r .TRUE. 

00125 

31* 

1 

CAU INPUTT 

00126 s:- • 

32* 


CALL EXECTM 

00127 

33* 


fiO TO 1 

00130 

31* 


END 


oiPE^siON maol 

COnnOPii /L35IC/ lAOOe, LCa^JO^ LCONST, lARRAV 
lOeiCAL LWOE, ICO^JD, LCONST^ LARRRV 
OlfiEWSION It 23S),C< 23il,5t 231>,6« 312 >,« 

2581 


ni>,A( 25111, 


tuo OF COl^PUATlORt 


K3 OlAGMOSTICS. 


v4.*j 



SAPiPLE riisticn ran simoa vcnsian « 




t«U»C 1161 C1J6140I0*> 

tmi covii«uoN y»s done on 2» ftft »J 4 t tNtUioa 


D*U tS02T3 2«Sr 30 

35 f(B 33 


sue«auTi»ie eiectn entry point oooozi 


STORRSE USED: tOOEC I » 0BO033j 0»T«0> 00000$, OLRNK Cat!MNI3l 000000 


CaiWON BLOCKS, 










0003 

TITLE 00002^ 










000^ 

TEnP OOOOOt 










ooos 

CAP QOOOOl 






j 




0006 

SOURCE OQQOOl 










0007 

CONO OOOOOl 










0010 

PCI OOOOOl 










0011 

PC2 OOOOOl 










0012 

IQNST OOOCOt 










con 

ARRAY OOOOOl 





• 





oon 

FHCOW 000062 










0015 

QihEKS oooon 










ooto 

I5PACE 003722 










- CITERNAL REFERENCES 1 BLOCK, NRnE) 








COlt 

PFC5 










OO30 

CP^BACK 










; 0031 

K£RR3t 










STORRSE 

£•{,_ “ 2 ' 

RSSIGN.1ENT IBIOCK, TYPE, RELRTIVE LOCRTION, NRfiEI 






0013 0 

000000 A 

oon 

000022 AftlJfCA 

oon 

000035 AflUCC 

oon 

000012 ATPPCA 

oon 

060017 

ATHPCC 

oon 

000013 backup 

oon 

OOOOMO baleng 

0065 

OOOOOO C 

oon 

000003 CSOFAC 

con 

000026 

CSGtai 

oon 

000020 CSCrtIN 

Qon 

000027 CSGRAL 

oon 

000030 CSGRCL 

oon 

090010 CArpA 

oon 

cooon 

CArPO 

0014 

000031 tntcik 

oon 

000032 ORLTCC 

con 

000007 OTirEH 

oon 

C0C025 DinEl 

oon 

00002^ 

orna 

con 

OOOOOl CTlrf'j 

oon 

000005 OTr.PCA 

oon 

OC0016 CTrPCC 

oon 

C00037 EL'GPAL 

0007 

OOOOOO 

r 

G003 

000000 K 

coco 

OOOOOO I^JPi 

oon 

OOOOS6 ITfST 

con 

COOO‘^7 JTEOT 

0012 

609C00 

f 

oon 

COGOSO KTE5T 

oon 

000060 lAXFAC 

0015 

000010 tF^A 

con 

000033 n^fOT 

con 

COOC23 


oen 

600036 L5PCS 

6015 

OCC006 ISOI 

6615 

CC0007 ISD2 

con 

O0CO51 ITEOT 

con 

090052 

riEOT 

con 

OCOO‘<*< ^AfiU^C 

0015 

000005 «AT 

con 

COCO«*5 ^ATrPC 

con 

C000«*2 

0015 

00900** 

^ri 

OOU I 

000000 ^D!n 

oon 

0C00‘»3 KDTr^PC 

0015 

000003 ^GT 

con 

00000«* M33P 

0015 

OOOOOl 


con 

600000 KNO 

0015 

000002 

oon 

C000**1 f;0C3PY 

0016 I 

[ OOOOOl tJTM 

9016 

090002 

Kt 

Qon 

C0OCO6 :??EITR 

oon 

CC0C21 2UTPUT 

00!-< 

00C03S FArECr 

0006 

OOOOOO 0 

con 

C00053 

RTE3T 

COlO 

000000 STOl 

COM 

OOOOOO 5E02 

con 

COCC«n STE3T 

600*» 

COOOCO T 

oon 

C00061 


con 

cooon TtrEfi 

con 

COOOCO Tir?N 

001** 

000002 nrc^o 

con 

GOCOn Tirf 3 

oon 

C00055 

TlE3r 

con 

000056 I'TEST 

von 

000057 VTEST 

0016 

000002 I 

0012 

500000 XK 





00161 

n 

iViPOVTtM Ff€ 

CTl* 

C0I03 

2* 

COf'rjn /TITLE/ 


COI05 

3* 

/TEfP/ 

T 

00105 


Cjrr^v /CAP/ 

C 


1'25 





B*K 296Zr3 »*SE 


s«fi2LC maBiiw FOB sinoB ««sion « 


€0101 

€• 

COnrOM ySOlif^CC/ 0 



COIOT 

«• 

COPrON /COND/ G 



COHO 

!• 

COrnON /PCI/ 

$toi 



OOlll 

a* 

corjp«aN /PC2/ 

SCQ2 



00112 


COP^nON /xONSr/ t 



com 

10« 

coprON /PRRfty/ n 



eoiH 

tt« 

CCnnaN /fllCOV/ TI«C>I . OTIPiEU, TIPiENO, CSGFaC, 

oon^ 

12* 

lULOOP . 

OTf.PCA, CPHTR, 

OIIHEH, 

CAPPA , 

oom 

13^ 

lOftMPO , 

airpCA. BACXUP, 

TirEO , 

Tl^EH , 

OOtl^ 

10* 

IDTfiPCC, 

•irPCC, C5GW1N, 

OUTPUT, 

ARLlCA, 

«Dlt^ 

15* 

ILDOPCT, 

DTinEL, OTIHEl, 

CSCnAi, 

CSGRAL, 

OOlH 

16* 

ICSCflCL, 

ORLlCO, ORLICC, 

LINECT, 

PAGECT, 

00110 

17* 

lanixcc. 

LSPCS , CNGBRl, 

OALENO, 

NOCOPf, 

00110 

\B9 

ipyrson , 

NOTf.PC, NftfillC, 

NATHPC, 

ITEST , 

00110 

10* 

IJTEST . 

CTEST , ITEST , 

POTEST , 

RTEST . 

00110 

20« 

ISTEST , 

TTESr , VTCST , 

VTCST ^ 

lAlFACp 

00110 

21* 

ITCKTRL 




00115 

12* 

copi«a*i /oirENS/ Kun,w4h,^Hr,htii,hzr 

,NAT,tS01AS02AoM'* 

001U 

23* 

D;p^£NS[ON H(23) 



00117 

20* 

CQPiP'ON /75PRCE/ 9iZin, NTH, X 



00120 

25* 

OirENSlON 

TUI, C(J», 0<lF. 611), 

KCn, A(t) 


00121 

26v 

OirENSlDN ixni, N3CU 



00122 

27* 

rouivALENce 

(K.lXl, <7, Nil 



00122 

2d« 

DinENSlQN X(2000> 



00120 

29* 

NOin ^ 2000 




C0I2S 

30# 

NTH r 0 




00126 

31* 

COLl PFCS 

<A( I53T),«tlS)A),A(2KSJ)) 


€0127 

32* 

C«Ll CUSACK 



00130 

33* 

OETURN 




oom 

30* 

CKO 





CNO OF Ca'iPUBTtSNx 


Its 0IAr-«>'3STICS 



SATE I502T3 fAGE 32 

tS ECt 73 lAitii t 


SUBAOUTlne VARALI EMRf rOTMT 0000^1 


$Ti]AAGE (ISCDs CODEC I > CGG5^3| DATACO) OODOlOj BLANK C0rj^0m2> 000000 
COWN BLOCKSi 


0003 

TITLE 

000026 

OOON 

TEPP 

OOOOOl 

000$ 

CAP 

OOOOQl 

0006 

SOURCE 

QGOOOl 

0007 

CONO 

OOOOOl 

coto 

PCI 

OOOOOl 

0011 

PC2 

COOOOt 

0012 

KONST 

COOQOI 

0013 

ARRAY 

OOOOOl 

0016 

FIICON 

C00062 

001$ 

DlftENS 

OOOOll 

0016 

ISPACE 

000003 


flTCANAL REFERENCES CBLOCK^ MADE) 


0017 

DlOEGl 

0020 

RIEFF 

0021 

FLOCNl 

0022 

CONVl 

0023 

NERH30 


STORAGE ASSIONhenT TYPE, RELATIVE LOCATION, NAWEI 


0013 R 

odoooo 

A 

S016 

000022 

ARIYCA 

0016 

000935 

ARLlCC 

COIN 

«t012 

RTHFC-® 

5516 

595517 

«TH?rc 

0016 

ocoon 

BACrUP 

C0I6 

050960 

RALENG 

0005 

000000 

C 

0016 

C55551 

t:GF«r 

5516 

C5a52ft 


0016 

000020 

COCHIN 

5916 

095027 

CSCPAl 

0016 

C0C930 

CSCRCL 

0016 

555515 


05t6 

C5C5U 

CArPC 

0016 

000031 

OfllXC* 

0016 

0C0C32 

t?Kjrx 

0016 

050507 

CMrEH 

55|6 

555526 


5516 

555526 

CrirfL 

0016 

OOOOOl 

cnrsu 

5016 

005005 

rirPCA 

0016 

000016 

CTrPCC 

5916. 

555537 

E6C6AL 

5557 

055505 


0003 

ooocoo 

H 

5000 

Q00C03 

INJP5 

0016 

C00C6t 

[TEST 

0016 

5555“ 7 

jTFir 

507? 

CC5555 

6 

0016 

OOOQSC 

KTEST 

::i6 

050060 

LAXFflC 

0015 

CCOOlO 

LENA 

5516 

555011 

LTRECr 

5576 

555521 


0016 

000036 

L5PCS 

0015 

000506 

tSQl 

0015 

CC0C07 

LS32 

5016 

555551 

mxr 

55t6 

5550 6 ? 

rrr:r 

0016 

0000*^6 

NflflLXr 

5015 

C00005 

NAT 

0016 

OC0065 

NATrPC 

0516 

5555*^2: 

5516 

555526 

Rrr 

OOlf 

ooocoo 


5016 

0055^:3 

LDTHPC 

0015 

C50C53 

Krx 

5516 

55555^ 


55T6 

555551 

NnA 

OOlS 

OflOOOO 

N%D 

0515 

500502 

K\T 

C016 

C0C56I 

N-3r:>py 

0015 

5555.57 

6T> 

551^ 

5C555? 

•X 

0016 

C00006 

cPFrr« 

C516 

CC5521 

OUTPUT 

5516 

950536 

PA^EC f 

CSOf 

*55^ ^5 

5 

55 L6 

55.55^ T 


0010 

cooooo 

SEO) 

0011 

050000 

SCO? 

0016 

505556 

STEST 

555*^ 

» 555X55 

r 

5576 

5555^1 

rr<5r»« 

0016 

000015 

Tf^FH 

0516 

R 555000 

TlrEN 

5016 

555552 

TI^FNC 

55 

55557.6 

rt-^ 

C5l> 

2555»?$ 

rrrxr 

0016 

OOOOSt 

UTEST 

0516 

055557 

6TEST 

50U 

005002 

1 

oot? 

555555 

»6 . 
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I 



e«TC 2$ezTj r«cc 


liill 

9910^ 

3* 

09I9S 


00196 

5* 

C010T 

4* 

toiio 

7» 

OOlU 

«• 

con? 


com 

to* 

6Q1M 

ll* 

GOIM 

12* 

OOllO 

13* 

ocn^ 

1$* 

toito 

15* 

0911^ 

14* 

CfillO 

17* 

ootto 

16* 

COll^ 

1$* 

com 

20* 

cott^ 

21* 

CGttS 

22* 

C0I16 

23* 

00117 

2^* 

00120 

25* 

09121 

24* 

09122 

27* 

00123 

26* 

0012^ 

2$* 

0012^ 

• 30* 

0012$ 

31* 

00126 

32* 

00127 

33* 

60130 

3^*^ 


SWLE PBOBLEn Fa* StNO* vc*5iaii * 


COnrON /TEnP/ T 
COnrON /CfiP7 C 

CO^-nON /sai;6CE/ 6 
cofinoN /ca^joy o 
torr\OH /PCI/ SEOi 
COFinON /PC2/ SEQ2 
COnro« /rjNST/ t 
COPrDN 4 



1, CSGfOC 

COfiftQN /FIXCOV/ TInEi* 

. Dtineu, ri«EN( 

mOOP , 0Xr*PC4, 

CPElTft, 

DTIPlEM. 

OAnPA , 

IDUnPD , ATnPC*, 

BACKUP^ 

TirCO , 

Jir\in , 

IDTPPCC. OTnPCC, 

CSOPiIN, 

OUTPUTp 

AAUCA^ 

ILOOPCT, DTirEL, 

OTirtl, 

CSGrAX, 

CSGAAL^ 

ICSGRCL, 0RLXC4, 

CRLXCC, 

UNECT, 

PAGECT, 

imicc, tspcs , 

EH56H, 

BALENG^ 

fcOCOPV, 

WCSGPI , liOTnpC, 

fQAPLXC, 

kATPPC^ 

ITEST , 

UTEST , KTEST , 

ITEST , 

UTEST , 

PTEST , 

1STES7 , TTEST . 

ITCNTftl 

UTEST , 

VTEST . 

LPTFAC^ 


COnnOM /OtrENS/ »iNO,»iN*,*«T,«(GT,l(CT,«l»T,LSOl,lS0i.l£N* 

OinENStON *(20) 

COPnON /*5P#CE/ NOln, KIH, I 

DlnENStON T<1), C(U, 0(1), G(l>, F(l>, *( i > 

Olf'ENSlO*! **U), N«n , «tl) 

EOUlVftLENCE (F,*K), (*,HX) 

CALL BlCEGKTtfiEN .AnSOl.TliaS)) 

CAU KJEFF tO.<,500.,*( 15eJ),l.O,*<l»,f(2H>.f(llT>, 
2T»2J4),T(23n) 

CALI F10CNM*( 15Af ),A( I ),*ni*3)) 

CALL CONVl (A( 15Jl),*U?2n,A(21<*)l 

RETURM 

END 


END OP CanPlLATIONi 
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SUBAJUUNE VAnBL2 CNTRV ROINT 000026 


STORAGE USED* CODEC 1 ) 000030j OATACOI 000006| BLANK CQHftO»<2) OOOOOO 


COHHON BLOCKSt 


0003 

TITLE 

000026 

0006 

nr? 

000001 

6005 

CAP 

000001 

0006 

SOURCE 

OOOOOl 

0007 

COND 

OOOOOl 

0010 

PCI 

OOOOOl 

6011 

PC2 

OOOOOl 

0012 

KONST 

OOOOOl 

6013 

ARRAY 

OOOOOl 

0016 

FIXCON 

000062 

6015 

DIfVENS 

OOOOll 

6016 

ISPACE 

C00003 


ETTERNAl 

AEFERLKCES (HOCK, NAfi£> 




0017 

FFCS 






6020 

TtnCMK 






6021- 

HJTRf 






6022 

h£RR3$ 






STORAGE 

ASStCNriENT (6L0CK, TYPE 

RELATIVE LOCATION, NAi^E) 


0013 R 

OOOOOO A 

0016 

000022 ARllCA 

0016 

660035 

ARLXCC 

0016 

oooon BACKUP 

0016 

0000*0 EALENG 

coos 

OOOOOO 

C 

CC16 

000020 CSGf^lN 

0016 

000027 CSORAL 

0016 

006030 

CSORCl 

0016 

000031 CRLICA 

0016 

C00032 CaiiCC 

6016 

000007 

DTirtM 

6016 R 

OOOOOl CTirEU 

0016 

C000C5 CTr?CA 

0016 

GOCOU 

CTrPCC 

0003 

OOOOOO M 

0000 

OOOOOl TNJPt 

0016 

OC006f 

ITEST 

COIN 

00005C icresT 

0016 

CCCCtO IA*7AC 

C015 

600010 

IfNA 

C016 

OOCOIf ISPC5 

0015 

COOOOF LS31 

C0I5 

000007 

1032 

0016 

OOOOH* narltC 

0015 

000005 NAT 

0016 

000065 

NATrPC 

60U 

OOOOOO ^cir 

0016 

000063 NDTrpf 

6015 

600003 N-T 

C0I5 

COOCOO ANC 

0015 

000002 7, ST 

0016 

000061 

7;3Ci?PY 

C016 

OOOCC6 OPEITR 

0016 

C0002I 2UTPVT 

C016 

C00036 

pfiorcT 

6010 

COOOOO SEOl 

0011 

COCOCO 5E32 

C016 

000C56 

STEOT 

6016 

000015 TirEn 

0016 

COOOOO trrEN 

COIN 

000002 

TirESC 

0016 

600056 UTEST 

0G16 

000057 VTEST 

ecu 

C0C002 

Y 


COIN 0OC012 AT^PCA 

OOIR 005001 CSr-fAC 

001^ oooon catpa 

COIV 00G025 CTirfl 

COl*> COOCI^ Ef.C^flL 

COl** CCC0‘<7 JTF5T 

coi^ CC0033 t t^.Err 

OOH OOCO*.l I tCST 

001^ 0000*2 trV:r 

0011 00000* 

COU OOOOGI MM 

OOCf COOOOO i1 

coo* OOOOOO T 

COl* OOOOl* 

0012 OOOOOO »» 


6016 

OCCOIT 

ATrPrC 

CC16 

COC02t 

CCrrAY 

COIN 

occon 

OArPO 

C016 

00002* 

CTirtl 

0007 

OOOOOO 

r. 

0012 1 COOOOO 

9 

6016 

000023 

1 33PTT 

C0|6 

000052 

PTE3T 

0015 

CC00C6 

NOT 

0015 

OOOOOl 

NS A 

OOlf 

OC0002 

M 

0016 

0:0053 

ATE or 

0016 

OOOC41 

Trp:T=L 

0016 

660055 

TTfOT 


caioi i» 

60103 2* 

COlO* 3« 


SijRR5'jT[NF VAPBL2 
COW^ON /TITLE/ K 
COrnjN /Tfrp/ T 
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250273 PA&C 


35 



SOr>^Lt rRJBLrn fl3ft StNOO VERSION f 


00105 

5# 

COfflON «»P/ 

C 




OOlOO 

$• 

/S3VRCE/ 0 




00107 

4* 

CQf^nON /COND/ 6 




oouo 

U 

CO^nON /PCI/ 

Scot 




eoiit 

•» 

COHffON /PC 2/ 

SE02 




00112 

5* 

Comow /KO^iST/ R 




00113 

to* 

COmON /APRAV/ 0 




00115 

11* 

COmOM /fUCOW/ TIPEN 

, OTlPrCU, TIPJEWO, CSGFAC, 

00115 

12- 

IKtOOP . 

ornPCA, 

OPEITR, 

DTIPCM, 

DAPPA , 

00115 

U* 

lOAftPO . 

RTHPCA, 

BACKUPp 

Tirco p 

TIPEP , 

00115 

15* 

lOTr.PCC, 

ATnPCC, 

CSGMNp 

OUTPUT, 

ARLXCA, 

00115 

15* 

aiooPCT, 

DTim, 

DTirEl, 

CSGPAI, 

CSGRAL, 

00115 

I4« 

ICSGRCl, 

DRiyCA, 

ORLXCCp 

LlNfCTp 

PAGECTp 

00115 

17* 

lARlKCC, 

LSPCS , 

ENGBALp 

BALtNSp 

NOCOPy, 

00115 

la* 

INCSGM , 

NOTrPC, 

NARLlCp 

NATnPCp 

ITEST , 

00115 

15* 

IJTEST * 

KTEST , 

LTEST p 

PTEST , 

RTEST p 

00115 

20* 

ISTEST , 

TTE5T , 

UTE5T . 

VTEST , 

lAIFACp 

00115 

21* 

ITCNTRL 





00115 

22* 

COmON /DirEWS/ 

,««TpNGT,NCT 

pNATplSOlptSOa.LENA 

00110 

23* 

OIPEWSIGN H(2Q) 




00117 

25* 

COrnON /15PACE/ ri0i:5. 

NTH, X 



00120 

25* 

OlTiENSrOW 

T< 11, CU >, 

QC Dp GlDp 

KID, AID 


00121 

24* 

OIPENStON 1 1, wxei ) 

p 3CU 



00l?2 

27* 

EQUIVALENCE 

(IC,7lf), <X, 

NX ) 



00123 

28* 

CALL PFC5 

CA{ 1537), A(t8l5)^A( 25631) 


00125 

25* 

CALI TlrCHKl RU >,0) 




00125 

30* 

CALL HSTRV 

f At 1586 ),A( U5I ],Af 1$56 ),0T IPEIO 


0012« 

31* 

RETURN 





00127 

32* 

END 






END OF CQfiFUATION; NO OIRCIUOSTICS. 
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19iUtll 


■I 

t 
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SUBMDUII^r OlTTCSL fNTIIV FOUlT 000039 


SI0«4Cf UStOr coomi 00003lj 04T4C01 000004| *L*N1l COW'ONtll 000000 
CO^ON OlOCKSt 


0003 

TITLE 

000029 

0009 

tEFlf 

OOOOOl 

ooos 

CAP 

000001 

: 0006 

501'RCt 

OOOOOl 

0007 

COND 

OOOOOl 

0010 

PCI 

OOOOQt 

* con 

PC2 

OOOOOl 

0012 

KONST 

OOOOOl 

0013 

ARRAY 

OOOOOl 

0019 

FIXCON 

OOOOS2 

‘ 0019 

DIPtENS 

cooon 

^ oou 

ISPACC 

OOOOOl 


c * r ■ • 

CltC*NAl RfFEACNCrs i BLOCK, NA^El 

^'■OOW TPRINT 
*0020 rtPflNT 
-0021 TIP'CHK 
0022 NCRRlt 

t, : 

t:-: 

STORSft ASSICljnENT <SLOC*t, TVK, RtLATtVE LOCATION, NArC 1 


0013 ft 

ooooob A 

0019 

000022 RRllCA 

0019 

665039 

MllCC 

0619 

000012 ATrPCA 

051* 

600017 

airPTf 

0019 

OOC013 BACKL'P 

0019 

000090 eAtrwo 

0009 

CC5500 

c 

0019 

C00003 CS^'^PAC 

0019 

000524 

CO^rai 

0019 

000020 CSOniN 

6019 

000027 fSf.RAL 

0019 

c::53o 

CSMfl 

0019 

OOOSIO PA'-PA 

0019 

cooon 

Ca-PO 

0019 

600031 ORLTCA 

0019 

C00032 CRliCC 

0019 

c:::o7 

CtirfH 

0019 

000029 CTlf'EI 

6019 

C50C29 

DTlrfi 

0019 

OOOOOl DT:rtu 

0019 

000009 OTP’PCA 

0019 

c::oif 

Otr»CC 

501* 

C0003T F/:rBAI 

5007 

COOOOO 

r 

0003 

OOCOOO H 

0000 

000001 

0019 


ITFST 

6fl* 

0G0097 JIfST 

5012 

I 600000 

K 

0019 

OOOOSO KTEST 

C019 

000040 lAiFAC 

0019 

cttoio 

LENA 

00|9 

C0003? t INETf 

0019 

650023 

1 2:pri 

0019 

000034 ISPTS 

0019 

000004 isai 

0C19 

C55::7 

IS32 

C019 

COOOSl 1 t?OT 

6019 

50005? 

»"T? :t 

0019 

03C09V NflHLir 

0019 

00C039 NAT 

0019 

oc::*»9 

NAT^PC 

0019 

ccoo«*2 Nr-irn 

0019 

CO5509 

NOT 

0014 

OOOGOO ^01^ 

C019 

000093 NOTrpC 

0019 

cc:::3 

N5T 

0019 

C00009 NtC3P 

0019 

C00051 

K\A 

0019 

COOOOO WNO 

0019 

C0COO2 hhiJ 

0019 

65C:^l 


C016 

OOOOOl p.rM 

5014 

000002 

Mr 

0019 

000004 OPfITfi 

0019 

C00021 6»*TPUT 

0019 


PA5ECT 

5004 

055500 6 

6019 

00009 3 

PTr:r 

0010 

OOOOCO SfOl 

con 

000000 Sf02 

0019 

555599 

SfCSr 

6009 

005000 1 

0519 

550041 


0019 

600019 

C0I9 

COOCOO TirEN 

0019 

czzzzz 

Tirf^O 

601** 

000019 nrfO 

6619 

C00599 

TTfor 

0019 

6S5C54 I'TEST 

0019 

300C9T VTfST 

6016 

c ::::2 

V 

0617 

600000 IK 





COIOl 

1- 

St'BA6l.*TINf 6l»TCAl 

00103 

2* 

COrrON /TIUF/ H 

00109 

3* 

COP^fiJN /TFrp/ T 
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o*u itom met 3? 



Sanrit FdOBLtn Fon sinoa vcasiom f 


«0I05 

%• 

tQryr^OH /CAP/ C 



COlOfc 

«• 

COnnaN /SQUACf/ Q 



eolOF 

€• 

COnnON /CONO/ G 



eoiu 

7# 

COflnOFl /PCI/ SCQl 



OOIM 

• • 

COUPON /PC2/ SCQ2 



oou; 


COn/tON /rONST/ « 



oom 

10* 

COF^nON /ARRAY/ A 



COIU 

11* 

CO«»'a*( FfUCON/ TI«H , OTIHEU, TIHINO, CSCFAC, 

OOIM 

12* 

IWLOQP , OTnPCA^ OPEir*^ 

OTIf^CN, 

DAF1PA , 

001 M 

13* 

lOAflPO , ATfiPCA, OACIL'P, 

TirEO , 

linEH , 

0011^ 

!%• 

lOTHPCC, AT/IPCC^ CSGnlN, 

OUTPUT, 

ARLICA, 

00tl<i 

15* 

llOOPCT, OTIfiCl, OTinCI, 

CSCftAl^ 

CSGRAl, 

0011^ 

16* 

ICSGACL^ tJRLiCA, ORtiCC, 

LINECT, 

PAGECT, 

OOlt^ 

17* 

1ARLICC. LSPCS , CNGBAl, 

oaleng. 

NOCOPy, 

0011% 

U* 

UlCSCn . NOirPC, NARLIC^ 

NATWPC, 

itest , 

0011% 

!%• 

IJTCST , KTCST , UEST , 

PlTESt , 

RTEST , 

0011% 

20* 

ISTCST , TTEST , UTEST , 

VTCST , 

lAlFAC^ 

0011% 

21* 

ITCNTRI 



OOllS 

22* 

COnrON /D1F1EN5/ NMO,NWA,N?<T,>lGT,KCT 

,N«T,lSOI. 1592, LENA 

OOlU 

23» 

OirC^SION H<20) 



001 ir 

2%* 

COW/10N /3SPACE/ hOin^ NTH, X 



09120 

25* 

OlftCNSION TM), CM), QM^ 6«1>* 

K< l>, A(ll 


00121 

2S* 

DfPCNSION XKM >, Nxn> , ICll 



00122 

27* 

CQUlVAieNCE {K,XK>, (X,NI1 



00123 

20* 

CALL TPRINT 



0012% 

2%* 

CALL riPPNK A< 15%6 ),A{ 2«<r31> 



00125 

30* 

CALL FlPRNTt A( 1TT% J>( 25031 > 



00126 

31^ 

CALL riPRNTt A( I5ft ),A( 2%83)1 



€0127 

32* 

CALL FLPRNTC A< U51 >,A{2%%3>> 



00130 

33- 

CALL Tl/^CHKUU),!) 



oom 

3%* 

oeiuHN 

• 


00132 

35* 

€ND 




INO OF rCr.PUAdOMi NO DU&hOSIICS. 
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f 


i^] 

• m siho* 




S5 rc» n 


Simms accRESS omooo 

CQRC LlnlTS OMOOO 100000 123^^1 U3T72 U3I77 


SII400 /CCDt 

0 tooooo-ioocco 

«| Ot%0C9-Ol^O13 

nswo/Riecs 

1 OI-iOH-Cl^C?? 

; NteR$ /fiLFC$ 

0 10CC01-!90901 
’ 0H02f-0l%333 

. t ■ 100C02-l0007fr 

ICFMS /RLEC4 
^ t 0l%33<»*0152n 

1 l 00077 “tC 0 m 

KFTVO /fil2Z 
^ I 015272 - 01531 ^ 

: lllC«rVTO/Rt.rr5 
1 015315-CI55-I1 

^2 100115-100202 

fcOTI*J:/RlCr5 
1 Ot555?-Olf?11 

'2' *lC0293-lC0?5f 

* >*■<*-- 

irpACFt/cocE’ 

I CU212-CU255 

CEPTH 

0 t002*ir-lfl0255 

/RIEC 5 

0 I00255-1CO*«'*» 

1 eU 25 fr- 0 Ur 2 C 

■fclOIM/flLEr? 

1 OU721-0!ET72 

2 l00iHi5-KC«i75 

:ClfCT"rf/r^Cf 

0 1005 7^-100502 

1 CU 773 - 01701 ? 
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B«CK/C:CC 

0 100)^3-100721 

1 0IT0U-0235S2 

aOUTO /ALfC^ 

0 10072^-100730 

t 023553-a2*»555 

2 l0073l-iaOT<»6 

aiAOO /CODE 
0 1007^1-101115 

fcBOCVS/RLEC^ 

0 IOniO-101302 

aARBl2/CaCE 
0 101303-101110 

aSTRt /COCE 

0 lOnil-101377 
tr 02^606-025153 

kRkiND6/RLECR 

1 02515 ^- 0252^6 

T. r 

UrOUTO/fllEC) 

I 0252*17-025500 
2* lOlROO-101501 

r • , ' ' 

«BUFFS/R123 
I , 025501-025523 

2* 10lV02-l02*il2 

V ' * 

NkRCAD/COCE 
0^ 102^13-102**52 

I 02552*1-026226 

krikRo/BLEr5 

1 O26227-026*iT0 

2 102*153-102*153 

^ : - 

TITiCHif/COrE 
0 I02*»5l-l02526 

r 026‘«7l-0265 75 

U^ECk/COCE 
0 102527-10253*< 

r 026576-026631 

C10« /CCDE 

0 102535-102537 

1 026632-026712 

T0PLI«/r0CE 

0 1025*»5-1025T7 

1 026713-526756 

D2^7!P’/CQCE 
0 102600-10261*1 
1 026757-027101 


D2C6GI/C2CE 



otfiCGt/cacc 

0 102610-102732 

1 027^5T-02T66T 

rttlkRt/CODt 
• 102733-10275% 

I 027670-030201 

llCy?50/RL2% 
t 030202-030265 
Z 102755-10276% 

OlHlun/COOC 

0 102765-103003 

1 030266-030%51 

OUTC6L/COOE 

0 10300%-1030ll 

1 030552-030510 

FtPRNT/COCE 

0 103012-103053 
t 030511-030705 

: TfRimT/COOE 

. 0 : 1030%%-103133 

1 030706-031210 

/ smuo/cocE 

0 - 103135-103176 

1 031211-031336 

: VI»ROLi/CeOE 

= Ot 1O3I77-133206 

1 031337-031501 

cowl /COCE 

0 103207-103505 
t 031502-032263 

; tfE7ri»6t/PL25 
\ 1 -032265-032556 

2 103506-103557 

: C8HT /ftL25 

1 . 032557-032525 

2 103560-103572 

• FrERft /COOE 

0 103573-103575 

1 032525-032535 

- nacNi/c?cF 

G 103575-103722 
1 032536-333012 

' WEFF /rOCE 
1 0 103723-10**CC5 

1 033013-033270 



Wes /cottf 

0 10 ^ 006 - 10^^57 


tir mz^ 

I 055^07-0353T5 

•EVPaL/COCE 

0 10*<701-10^731 

1 035376-035672 

KTWftK /CODE 
0 10^73^^105120 

t 035673-036357 

FLOOPl^COOE 

0 105121 - 1055*15 

1 036360-0*^0070 

StfiSOL/COOF 

0 1055*»6-105623 

1 050071-0*10525 

BFSD /CbO£ 

0 105625-105670 

1 ' 050526-050617 

USCRT /R125 
I " C5C620-C5C667 
t 105671-105707 

crruss/coot 

0 105710-105752 

1 050670-051150 

6CN3UT/CaOE 

0 . 105753-106027 

1 051151-OH1535 

PRFi /COCE 
• 0 ; 106030-106072 

1 ' 057536-051667 

flrcs /code 

0 106073-106253 

1 C51670-052321 

SORT /BL25 

0 106255-106257 

1 C52322-0*»236I 

2 106260-106265 

•ftWHiCI/CODE 
0 106266-106*‘5I 

t 0^2362-05305** 

KThrRK5/C3CE 

0 106552-106632 

1 C53C55-053503 

rolWTij/****** 

G 106633-106637 



I 

|lr9uTT/C00E 
« tQE67O*10«T^l 



0 ioen2-ii26S) 

lOCtC /*♦•••• 

• 11265^-112651 

0 112660-112670 

niCON/**«*»* 

0 112671-112752 

ARRAY /•••••• 

0 112T53-117671 

«0«ST /•••••« 

0 117612-12007^ 

PC2 /•*•••• 

0 U0075-U05R6 

ftl /•••••• 

6 1205 ^ 7 - 121^22 

CO"fO 

0 121^2^-122113 

S0l*RCf/*«**»* 

0 122ll^-122«t65 

CAR /•»*»«• 

0 122^66-123037 

TtrP 

0 I230^Q-I23*»19 

Tint /•••••• 

0 123M6-123^<H 


E60 0^ AUaCATION 1103 0039A 09099 


137 




• DIVlDC CMCCR AT 015001 

• DtVtDC CHECK AT OlSOOl 



138 



Muni irPR 3 ¥ E 0 NUnCflim CtfFtRENCJNG •NKtlER 
S « n^LC r « 08 icn ron Si ^ O * «« SI 0 « f 


- - - SIMtlA - - - |jltlVAC*ll08 rOATA*N-V VERSION 


r«SE 




T 

1* 

70.000 

f 

7* 

70.000 

T 

13= 

TO.OOO 

I 

19= 

TO.OOO 

T 

25= 

70.000 

T 

31 = 

70.000 

T 

37= 

70.000 


93= 

TO.OOO 

T 

99= 

70.000 

f 

55= 

70. OCO 


41? 

70.000 

T 

67= 

TO.OOO 


73= 

70.000 

t 

79= 

TO.OOO 

1 

45s 

70.090 

T 

91= 

70,000 


97= 

TO.OOO 

t 

103 = 

70.000 

f 

109? 

70.000 

T 

115 = 

70.000 

X* 

201 = 

TO.OOO 

T 

207= 

70.000 


213? 

70.000 


219= 

70.000 


225 = 

70.000 


231? 

70,000 


237? 

70.000 

V ' 

293= 

70,000 

T 

2*9 = 

70.050 


255= 

7.0.000 

T 

261 = 

. TO.OOO 


267= 

70,000 


273? 

TO.OOO 


279= 

70.000 

^ 1 

205? 

TO, COO 

: X 

291 = 

70,090 


297= 

70.000 


303? 

70.000 

1 X 

309= 

70.000 


^315= 

70.000 


o.ocooo 


CSCniNl 


T 
T 
T 
T 
T 
- T 
T 
T 
T 
T 
T 
T 

r 

T 

T 

T 

T 

X 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

r 

T 

T 

T 

T 

T 

r 

T 

T 

r 

T 

T 


26 S 

32^ 

30= 

50= 
56= 
62= 
60= 
T 5 = 
B0= 
06= 
52= 
90 = 
lfl «»= 
U0= 
116 = 
202 = 
200 = 
219 = 
220 = 
226= 
232= 
238= 

29*1 = 
2?0= 
296= 
262= 
268= 
229 X 
200 = 
206= 
292 = 
290 = 
309 r 

310= 

316= 


70.000 

70.000 

10.000 
TO. 000 
TO.OOO 
70.000 
70.000 
70-000 
70.000 
70.000 
TO.OOO 
70.000 
TO.OOO 
70.000 
70.000 
TO.OOO 
70.000 
70.000 
70.000 
TO.OOO 
70.000 
70.000 
70.000 
70.0C0 
70. 000 
TO.OOO 
70.000 
TO.OOO 
TO.OOO 
TO.OOO 

70.000 

70.000 

70.000 
70.000 
70.000 
70.000 
70. COO 
70.000 
70.000 
70, COO 


T 

T 

7 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

7 

T 

T 

T 

7 

T 

T 

T 

7 

7 

T 

T 

T 

t 

t 

T 

T 

T 

T 

T 

T 

T 

T 


01 = 
3= 
9= 
15 = 
21 = 
27= 
33= 
39= 
55= 
51= 
57 = 
63= 
69= 
75 = 
01 = 
07 = 
93= 
99= 
105 = 
111 = 
117= 
203= 
209= 
215 = 
221 = 
227= 
233= 
239= 
295= 
251= 
25 7= 
263= 
269 = 
275 = 
201 = 
207 = 
293= 
299 = 
305 = 
311 = 
317= 


0.00000 

TO.OOO 

TO.OOO 

70.000 

70.000 

TO.OOO 

70.000 

TO.OOO 

70.000 

70.000 

70.000 

70.000 

70.000 

70.000 

TO.OOO 

70.000 

70.000 

70.000 

TO.OOO 

70.000 

70.000 

70.000 

70.000 
TO.OOO 

70.000 
TO.OOO 
70.000 
70.000 
70.000 
70.000 

70.000 
70.000. 
70.CC0 
70.00C 

70.000 

70.000 

70.000 

70.000 
70,000 

70.000 

70.000 


urpcci 

T 9 = 


. new R6TFS C18/K0) 

29^0.1 2«»*»*i.5 2«il0.5 

1211.0 

600.01 

26.013 

13.029 6.5632 

6,9606 

6,5632 

600.01 

602.97 6C8.C1 

602.97 

1211.0 

4.5632 

6.9606 13.02^ 

26,919 

2999.5 

0»ESSU»e CROPS 
201.96 

U0/FT**21 
60169. 60556. 

82.595 

3029,9 


T 

X 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

7 

T 

T 

7 

7 

T 

7 

t 

T 

T . 

T 

T 

T 

T 

7 

T 

t 

f 

T 

T 

T 

T 

T 

T 

T 


10 = 
16* 
22 = 
18= 
39= 
90= 
96= 
52= 
58= 
69= 
70= 
76 = 
82= 
88 = 
99? 
100 = 
106 = 
112 = 
190 = 
209= 
210 = 
216= 
222? 
228= 
239 = 
290= 
296= 
252= 
258 = 
269 = 
270= 
276 = 
2?2 = 
203 = 

2992 

3002 
306 = 
312? 
900 = 


01 = 0 . 
70.000 
70.000 
70.000 
70.000 
70.000 
70.000 
70.CC0 
70. COO 
TO.OOO 
70.000 
70.000 
70.000 
70.000 
TO.OOO 
70.000 

70.000 

70.000 
TO.OOO 
TO.OOO 

80.000 
70.000 
70.000 
70.000 
TO.OOO 
70.000 
70.000 
70,900 
70.000 
70.000 
TO.OOO 
TO.OOO 
70.000 
70-000 
10.500 
70.000 
70.000 
70.000 
70.0CC 
70.000 

- 959.69 


00000 

T 

7 

T 

T 

T 

T 

T 

7 

T 

t 

T 

T 

T 

T 

T 

T 

T 

T 

T 

t 

T 

T 

7 

T 

T 

T 

7 

T 

T 

T 

T 

T 

T 

1 

T 

t 

T 

T 

7 


AKXCCC 


01 = 


5= 
lt = 
17= 
23= 
29= 
35 = 
91 = 
97 = 
53= 
59* 
65 2 
71 = 
77= 
83= 
89= 
95= 
101 = 
107= 

m= 

199= 
205 = 
211 = 
217= 
223= 
229 = 
235 = 
291 = 
297 = 
25 3= 
259 = 
265 = 
271 = 
277= 
2P3 = 
289 = 
295 = 
301 = 
307= 
313= 


TO. 

70. 

70. 

70, 

70. 

70. 

TO. 

70. 

70. 

70, 

70, 

70 

TO. 

70, 

70 

70 

70 

70 

70 

71 
70 
70 
TO 
70 
70 
TO 
70 
70 
70 
7C 
70 
70 
70 
70 
TO 
70 
70 
70 
70 


000 

000 

000 

000 

000 

000 

.000 

.000 

,000 

.000 

,000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.000 

.009 

.000 

.000 

.000 

,000 

.050 

,000 

.000 

.000 

,000 

.000 

.coo 

,000 

.009 

.oco 

.coo 

.009 

.090 

.999 

.999 


0. 

T 

00000 
6 = 

70.CCO 

T 

12= 

TO.OOO 

t 

10= 

70.009 

T 

29 = 

70.000 

T 

30 = 

70.CC9 

T 

36= 

70.000 

T 

92= 

7O.CC0 

T 

90 = 

70.050 

T 

59 = 

7o.c:o 

7 

60? 

T0.CC9 

T 

66? 

70. COO 

T 

72= 

70.003 

T 

78= 

70,000 

T 

89 = 

70,009 

T 

90= 

7C,C09 

T 

96? 

70.900 

T 

102 = 

70.955 

T 

100? 

79. 055 

T 

119 = 

TO.OOO 

T 

209= 

77,505 

T 

206 = 

70,009 

T 

212? 

TO. COO 

T 

210= 

70.OC5 

T 

229 = 

70.059 

T 

230 = 

79.009 

T 

236 = 

79.009 

T 

292= 

7C.009 

T 

298= 

70.009 

T 

259r 

79,909 

T 

269= 

79.009 

T 

266? 

79.009 

T 

272= 

79.009 

T 

278 = 

70.009 

T 

289r 

70.009 

r 

290 = 

70.9:5 

T 

296 = 

70.000 

T 

302? 

79.500 

T 

300 = 

79.000 

T 

319? 

79-009 


602.97 
6. *656 
2**18.5 
3.6021 


3029 .= 


698,91 

602. ^>7 

1211.9 

2*»22.9 

13.02*1 

26. O**® 

2**22.9 

i2n,9 

26,0**? 

n.c2** 

6,5622 

6. ‘*696 

2‘^«8.1 

2*»18.5 

26,513 


392^, *» 

3927,** 

02,515 

87,220 



m 

'1 

^MtEH 5 ir.pflOVEO HvnEBlCKL 

DtFFEAE^JClN 

S AHAIY2ER 

- - - SIUDA 

^ « 

UNI VAC-1108 

FCAT»A9-V VERSIOJ'l 

MGC 2 

S»Pint PRaBltn FOR S1N0A VERSiai 
*mF, .55RH-01 I.RRIT 

1«».R 302R.R 302R.^ 

l,R»3F I.RB3T .55R6»-0l 

9 

1-9937 

3029-9 

•35896 

1-993T 

62.595 

2019-9 

1-9937 .55969-01 
790-63 -99630-01 
«12999^06 201.96 

.99661-01 

.56000-01 

•913.2 

99.220 

1.9936 

3-1697 

62.595 

1-9936 

PRtSSl'ftES U8/FT»*2F 
.1303R*OA .I301R*0( 

2321.1 2226. « 

2226.R 2216.8 

699T7- 

2226-5 

201-96 

9920.5 

6130.3 

•00000 

69U-3 

3100-9 

9356-1 

6C97.7 

6326-T 

3007.2 

6229-5 

2216.9 

2220.0 

2226.5 

2226.6 

2225.0 


mvf ^osiTions 

.^^900 -99000 

CQAPUIER Tir£ r «000 f^tMUTES 

« etVtOE CHECK AT 021500 

• OrvitE CHECK AT 021506 
V DtVtOE CHECK AT 021506 
« DIVIDE CHECK AT 021506 

• DIVICE CHECK AT 021506 

• DIVIDE CHECK AT 021506 

• DIVIDE CHECK AT 021506 
4 DIVIDE CHECK AT 021506 


TIFJEt I. 

OOQQO^OO 

DTIMEys 

5.00008-03 CSCftIFJC 

771= 

2-29961-06 

TE*^A 

CCi 

2901= 2. 

3679C- 

•02 RELlCri 106)= 

5 

.20706- 

03 



71.036 

T 

2= 

92.860 

T 

3= 

37-721 

T 

9 = 

29 .990 

T 

5 = 

19.260 

7 

_ 6= 

19.275 


It 

71.036 

T 

8= 

52.909 

7 

9= 

37-922 

7 

10= 

25-297 

T 

l|s 

19.535 

T 

12= 

19.598 


13= 

71.039 

T 

19= 

52.985 

T 

15 = 

37-916 

f 

u= 

25.290 

T 

17= 

19,520 

T 

18 = 

19.591 


19= 

71-035 

T 

20= 

52.065 

T 

21 = 

37.716 

T 

22- 

29,991 

T 

23 = 

19.259 

T 

?4S 

19.260 


25s 

19-930 

T 

26 = 

5.2795 

T 

27= 

-2-5260 

T 

2?s 

-5-7629 

T 

29 = 

-19.300 

T 

30 = 

-19.2*1 


31 = 

19.926 

T 

32 = 

5-3307 

T 

33= 

-2.9900 

T 

39 = 

-8.6200 

T 

35 = 

-19.12? 

T 

36 = 

-19.0^9 


37s 

19.933 

T 

30 = 

5.3399 

T 

39= 

-2-9300 

T 

90 = 

-0.6U2 

T 

91 = 

-19,109 

T 

• 2= 

-19,076 


93= 

19-935 

T 

99 = 

5-2890 

T 

95 = 

-2.5203 

T 

96 = 

-8.7537 

T 

97= 

-19,209 

T 

90 = 

-19,251 


99s 

71.033 

T 

50= 

70.676 

T 

51 = 

70.321 

T 

52= 

69.966 

T 

53= 

69.613 

T 

59 = 

69.615 


55 = 

71.033 

T 

56 = 

70,677 

T 

57= 

70.322 

T 

58= 

69-969 

T 

59= 

69.617 

T 

60= 

69,61? 


61 = 

71.03H 

T 

62= 

70.678 

T 

63= 

70.323 

T 

69 = 

69.970 

T 

65 = 

69.618 

T 

66 = 

69. M9 


67 = 

71.039 

T 

60 = 

70.677 

T 

69 = 

70.321 

T 

70= 

69.967 

T 

71 = 

6V.619 

1 

• i' 

69.616 


73= 

69-621 

T 

79 s 

69,269 

T 

75= 

60.919 

T 

76 = 

68.569 

T 

77 = 

60.210 

T 

70? 

60.212 


79= 

69,621 

T 

00 = 

69-270 

T 

01 = 

60.920 

T 

?2 = 

68.572 

T 

03 = 

60, 279 

T 


60.226 


65 = 

69.620 

T 

06 = 

69.269 

T 

07= 

60-919 

T 

90 = 

60.571 

T 

09 = 

60.22* 

T 

90 = 

6?.22‘‘ 


91 = 

69.621 

T 

92= 

69.269 

T 

93^ 

6?.9ie 

T 

9H = 

60.56? 

T 

95 = 

60-220 

T 

96 = 

6?. >2? 


97= 

71.029 

T 

93= 

71.029 

T 

99= 

71.031 

T 

130= 

71-032 

t 

101 = 

19, 4*11 

T 

1C2= 

1*.* 13 


103 = 


T 

109 = 

15.920 

T 

105 = 

-19.160 

T 

106 = 

-19.137 

T 

107= 

71-030 

T 

108 = 

71.031 


109 = 

69.617 

T 

110= 

69.610 

T 

111 = 

69.61? 

T 

112= 

69.619 

I 

113 = 

6?-22* 

T 

ll* = 

60.223 


115 = 

90.C59 

T 

116 = 

71.051 

T 

117= 

90.107 

T 

19! = 

00.000 

T 

199= 

*«9.0?9 

T 

200= 

71.:?? 


201 = 

71.037 

T 

202 = 

91.600 

T 

232= 

27-659 

T 

209 = 

15.909 

T 

205 = 

5.6906 

T 

206 = 

1* 


201 = 

71.036 

T 

203 = 

91.990 

T 

209 = 

20.039 

T 

210 = 

16.733 

♦ 

t 

211 = 

6. 1*63 

T 

212= 

I* ,5*^2 


213= 

71.035 

T 

219 = 

91.932 

T 

215 = 

20-029 

T 

2lf = 

16,223 

T 

217 = 

6.1356 

T 

2 ! 0 = 

1 * .5 * 


2191 

71,036 

7 

220= 

91.672 

T 

221 = 

27.6«»9 

T 

221 - 

15.794* 

T 

223 = 

5. *74? 

T 

2?* = 

l*.?70 


225 = 

19.932 

T 

226 = 

-2-7205 

T 

227= 

-10.C$9 

T 

22» = 


T 

229 = 

-23.13= 

T 

230? 



231 = 

19.929 

T 

232= 

-2>550 

T 

233= 

-9.7796 

T 

239 = 

-10.603 

T 

235 = 

-22.9*0 

T 

236 = 

-l*.07fc 


237 = 

19.937 

T 

233= 

-2.9341 

T 

239= 

-9.76 19 

T 

290 = 

-10.673 

T 

2*1 = 

-22.950 

T 

2*2 = 

- ♦ * , : * 3 


2A3 = 

19.937 

T 

299r 

-2.7005 

T 

295 = 

-10-079 

T 

2*6- 

-1 ?. ?3* 

T 

2^7 = 

-23.120 

T 

2*'? = 

-l*.2*5 


140 



1 



2% 

7l.03*» 

T 250* 

47 

^$4 

255* 

7U032 

T 254s 

47 

555 

141* 

71.015 

T 242» 

47 

554 

247* 

n.oi5 

T 241* 

47 

527 

272* 

45.422 

T 27‘i» 

46 

125 

271* 

45.421 

T 240* 

44 

.113 

2as« 

45.420 

T 244* 

46 

.133 



251* 

47.152 

T 

252* 

44.755 


257- 

47.152 

T 

254* 

44.410 


243* 

47.153 

T 

245. 

44.111 


245t 

47.153 

T 

270* 

44.400 


275* 

65.744 

r 

274* 

45.554 


241* 

45.755 

T 

262* 

45.559 


247* 

45.755 

t 

284* 

45.557 


253* 

66.557 

T 255* 

45.415 

255^ 

46.545 

T 240* 

45.615 

265* 

64.570 

f 264* 

45.620 

271* 

44.556 

T 272* 

45.414 

277* 

47.655 

T 278= 

68.213 

243* 

45.122 

T 245* 

68.226 

245= 

65.121 

T 250* 

66.225 


'll ""7 

c r ' ‘ ^ ’ 


K ^ ^ * •i- • 





141 



Ut^S ir.^RavtO KUrtBICOl DIrrCRE^^CI^G AMIYUR 
SWLC ^R3BLtn fOR SIN0» VERSION Y 


- - - SINOR * • - UNlVRC-ltOS FORXRAN-V VERSION 


T 

f 

I 

T 

f 


1VI» 

30S= 

3Q9- 

315» 


M.E2t 
n.029 
IN, ^15 

N0.0S9 


T 

T 

V 

T 

T 


29i= 

298= 

30N^ 

310= 

316= 


66.12N 

11.029 

IR.N2I 

69.618 

71.0S2 


293= 

299= 

305= 

311= 

317= 


65.785 

n.031 

-19.157 

69.618 

90.108 


299* 

300= 

306= 

312= 

900= 


65.997 

71.033 

-19.136 

69.619 

-959.69 


295= 65.110 
301= 19.912 

307= 71,030 

313= 60.229 


7RGC 


294= 

302= 

308= 

319= 


68,222 

19.N13 

n.032 

68.223 


ftQU PATES (lO/HR) 
2^65.7 2962.2 

1587-3 793.81 

219-98 217.38 

397.56 396.25 


PPESSl'RF CROPS 
209-28 
58619. 
370.63 
3622.0 


f LB/FT==21 
60998. 
39.399 
370.63 
3622. 0 


PRESSURES Ue/FT*»2) 
.1298Z*06 .!2962*06 

10011. 6389,9 

. 6250.5 2620.5 

VRIYE FOSITICSS 

;99900 .39220 


COWTEP T!FC = 1.952 niNUTES 


879.03 

N37.32 

219.83 

397.56 

396.25 

397.56 

219,88 

Z17.29 

937.18 

793.81 

1587,3 

2962.2 

65N67. 

13,067 

379.26 

3626.1 

3626.1 

3626.1 

370.33 

370,33 

IN. 375 

39.353 

378.18 

2095.2 

68668. 

3200.N 

2621.1 

6337.1 

2773,2 

2902.8 

205.05 

.00000 



T1PE= 2. 
T 1 = 
T : 7= 


T 

T 

T 

T 

T 

T 

t 

f 

I 

T 

T 

f 

T 

T 

t 


13= 

19= 
25= 
31= 
37= 
93= 
99=. 
55= 
61 = 
67= 
73= 

■ ‘79=' 
85 = 
91 = 
97= 
103= 
109= 
115 = 
201 = 


00000*00 OTlnEVs 
70.978 
70.970 
70.978 
70.978 
19.268 
19.260 
19.268 
19.268 
70.978 
70.978 
70.970 
70.978 
69.560 
69.560 
69.560 
69.560 
70.978 
19.268 
69.560 
39.83H 
70.978 


217.50 

396.25 

•79.83 

3.5939 


379.26 

3626.1 

138.20 

.1299l^06 


3186.2 

2759.1 


5.00003-03 CSGnlNC 77)= 


T 

2= 

52.006 

T 

3* 

T 

8® 

52.929 

T 

9* 

T 

IN = 

52.926 

t 

15* 

T 

20* 

52.003 

T 

21* 

T 

26* 

5.0660 

T 

27* 

T 

32= 

5.1233 

T 

33= 

T 

30= 

5.1259 

T 

39 = 

T 

99s 

5.C601 

T 

95 = 

T 

50= 

70,621 

T 

51 = 

T 

56* 

70.622 

T 

57* 

T 

62 = 

70.622 

T 

63* 

T 

60= 

70.621 

T 

69= 

T 

79* 

69.200 

T 

75 = 

T 

00= 

69.209 

T 

01 = 

T 

06 = 

69.209 

T 

€7 = 

T 

92 = 

69.200 

I 

93 = 

T 
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T 
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T 
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T 
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T 
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T 
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r 
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T 
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r 
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69 

69 

69 
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68 
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T 
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T 

T 
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T 

T 

T 
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230* 
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317= 
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€7-099 

€7,099 

€7-088 

65.727 

€5.737 
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T 
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300= 
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16.107 
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937-91 

219-91 

2tT.?0 

397.52 
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138.27 

39.352 
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2095-3 

.12991*08 

68668- 
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5.9716 

5.5096 
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66-916 
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19.909 
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-19.795 
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69.562 
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69.558 
68.199 
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T 
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T 
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397.52 
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2965.8 


879.68 
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379.03 

19.970 
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39,398 
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rr< 211= 

6 

.15352- 
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T 
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T 
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T 
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i4.no 

T 
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14,130 
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70.978 

T 

8= 

52,929 

T 

9= 

37.951 

T 
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25.155 

T 
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T 
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13= 

70-973 

T 
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T 
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T 
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T 
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14.953 

T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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69.560 
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69.560 
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70.978 
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69,560 
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39.833 

201 = 

70,970 

207 = 

70.978 
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70,978 
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70.970 
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19.267 

231 = 
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19.267 
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70.978 
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70.978 

261 = 

70.978 
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70.978 
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69.560 
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69.560 
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69.560 

291 = 

69.560 
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70.970 
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19.267 
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69,560 

315 = 
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T 
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T 
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T 
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T 
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T 
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69.208 

T 
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69.209 

T 

86= 

69.209 

T 
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69,200 

T 
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70.978 

T 

109 = 

19,267 

T 
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69.560 

T 
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70.970 

T 

202 = 
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T 
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T 
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91.915 

T 

220= 
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T 
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T 
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-2.7227 

T 
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T 

299 = 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 

69= 

70.265 

T 
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T 
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T 
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T 
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27-579 

T 

209= 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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67.098 

T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 
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T 

101 = 

19.269 

T 

107= 

70.978 

T 

11 r= 

68.162 

T 

195 = 

93-092 

T 

205 = 

5.5207 

T 

211 = 

5,9828 

T 

21T= 

5.9TU 
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FIGURE 12 

RADIATOR TEMPERATURES FOR SAMPLE PROBLEM 
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SINDA VERSION 9 SAMPLE PROBLEM 
RAOIATOR INLET TEMPERATURE 
MAIN RADI ATCR CUTLET TEMPERATURE 
PRIME TUBE outlet TEMPERATUaE 
Mlipn RADIATOR OUTLET TEMPERATURE 
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— 0E6F 

— DEGF 
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FIGURE 13 

SYSTEM TEMPERATURES FOR SAMPLE PROBLEM 
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SINOA VERSION 9 SAMPLE PROBLEM 
RADIATOR CONTROLLED C'JTLET»HX INLET — DEGF 
HXOUTLET ON RADIATOR SIDE — DEGF 

HX INLET ON WATER SIDE — D|GF 

HX CUTLET ON WATER SIDE — DEGF 
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FLOW RATE 


FIGURE 14 

SYSTEM PRESSURES FOR SAMPLE PROBLEM 
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S!NOA VERSION 9 SAMPLE PROBLEM 
TOTAL PUMP FLOV/ RATE — 

TOTAL RADIATOR FLOW RATE — LB/^R 
BYPASS FLOW RATE — LB/HR 
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FIGURE 15 


RADIATOR FLOW RATES FOR SAMPLE PROBLEM 
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SINOA VERSION 9 SAMPLE PROBLEM 
TOTAL RADIATCR FLOW RATE — LO/HR 
MAIN RADIATCR FLOW RATE — Lg/HR 
PRIME TUBE flow RATE — LB/HR 
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PRESSURE 


FIGURE 16 


PUMP PRESSURES FOR SAMPLE PROBLEM 
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TIME - (HOURS! 


PRESSURE 


FIGURE 17 



SYSTEM PRESSURES FOR SAMPLE PROBLEM 
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APPENDIX A 


SUBROUTINE LISTINGS 


A Fortran 11st1n9 is presonted below for the subroutines which 
were modified or added to the SINDA preprocessor and user subroutine library 
which create SINDA/VERSION 9. 



A-2 


CaOtRO C'OtRO COOCRD CaOtRO COOERD COO-RO COOERD COOCRD ^ COOERO 


SUtR3uT|NE C3DERO ^ . , 

SU«R3i*Tt« COCERD <Ci)Ot RE»0> REROS TuE TITLE HOC* RNO THE 
REIT FOUR blOCR HERDER CRRDS. IE. ECO 3R3DE DRTR, 
tCO 3COHDOCUR ORTR, ECO 3CON5TRNTS CRTR* RNO 
ICD 3RRRRT ORTR. 

COrv\ON/iRS/JPStOT 
CO^N /EUCRET/ Etn 

C0W10H /LOGIC/ INODE, lCO*<0.tCONST,LRRRRy.lRRINT,RBRNCH 
I ,|FUC<50>,nPRNt,RYRRNT,GENEHL.ia,L0N52 

COWN /TAPE/ MN, NOUT, INIERN, LE3D, lE'^P, till ,lL‘T2,LUT3,tVl» 
COiViON /DRT«/ NN0,NNR.NNB,NNT,N5L,NER,NGT,NUC,NECI,N£C2,NCT,IENR, 
I ERCRTR,PB0GRft,ENDRVJN,LSEQl,tSE02,L0N5 
COiV^OJI /RLOGIC/ prrint, FRRFIW, PNOOE, pcono, rconST, mrrry, 

I PflTLE, PCHGID 

COWVON /POINT/ iOC< 201,LEN< 20),IENRRT,T1TLE1201 
TMTEGER RLPh, TwERn, PCStNG, CODE. END. REhRRR. TEPIPB, CONDE. 

1 CON5TE, RRRVB, fNOOAT, PRINT, HiNlf, GERRLP, BLRN»C, TITLE 

2 FINE, fCKGlO 

INTEGER COU,COnnNT,PCSSHT,ELOCiC 

INTEGER OE.ENDPRn 

lOGICRL LN3DE.LL0GIC, LEND, NOREAD 

iOGICRL LCONO, LCONST, LRRflAf, LPRINT, GENEfll, LONG 

iOGICRL PARINT, PARFIN, PNODE, PCOND, PCONST, PARRAY, PTITLE 

LOGICRL RTPRNT,RYPRNT,LQ.10ND2 

DIMENSION AlPH(Iy), IB(IJ, ELOCAiN), UOGIC<n 

OlPtENSlON FllCl 1 ) 

EQUIVALENCE (If IIC,FIH:) 

EQUIVALENCE (E,IE>, < LLOGl C, LNODE > 

ORTA END /4HEND /,ELANK/6H / 

ORTA TH£fl/n/6HTHERPIA/ , PCSLNG/6HL LPCS/ 

OITA REr^ARK/iMREfl /, PRINT/6H • / 

DATA TEPiPB /EHNODE 0/ ,CONOB/6HCONOUC/, CONSTB/E«CONSfR/,ARRYi 
I /BHARRAY /, 6ENRLP/6HGENERA/, HlNI T/fcMINI TI A/, ENOOAT 

Z /iHCND OF/, riNE/EHFINH / 

DATA tOr\r\HT /IHC/, PCSShT /GHL 5PC5/, ITWO /IH2/ 

ORTA (ELOC*( n,! = I,*i > /6HN00E 0, GHCONDuC, EMCOVSTA. fHARRAY / 
DATA flB/frHSOl'RCE/ 

DATA ENOPRn/tHENn PA/ 

COwON/SROCOn/COLl,COL2/»ALPH.CaOE,N 

INITIALIZATION 

ILAST^O 

PTITLE'-FALSE. 

PK0Of=. FALSE. 

PC0N0=^. false. 

PCONSFr. false. 

PARRAYi-FALSE. 

LPfllNT:i. FALSE. 

ftprnt=, false. 

AYPRN'fJ. false. 

PARINfr. FALSE. 

PARFINi. FALSE- 
LONG?-. false. 

L0=. FALSE. 

READ BCD STHERhAL/GENERAI CARO 


eoR 

rr'i 
< ( ■ 

i' 

tOR 

2 

CDR 

3 

COR 

N 

CL^ 

S 

CDR 

« 

COR 

? 

VCRS 

9 

CDR 

6 

CCR 

1 

VCRS- 

005 

CCR 

11 

CCR 

12 

COR 

13 

CDR 

H 

COR 

15 

CCR 

U 

CCR 

IT 

,coa 

le 

CDR 

15 

COR 

29 

COR 

21 

COR 

22 

CCR 

2) 

CCR 

2R 

VERS' 

'005 

COR 

26 

VERS- 

005 

VERS- 

-005 

COR‘ 

2T 

CDR 

2B 

COR 

25 

COR 

39 

COR 

3t 

CCR 

32 

COR 

33 

COR 

3R 

CDR 

35 

COR 

36 

CCR 

3F 

COR 

V 6 

38 

COR 

35 

COR 

59 

CDR 

51 

CCR 

52 

COR 

53 

COR 


CCR 

A5 

rcR 

56 

COR 

57 

COR 

50 

COR 

59 

COR 

50 

CDR 

51 

VERS 

-035 

CDP 

52 

COR 

53 

COR 

55 


COOERD 


I II I ' II 
f V > . 

< 

COOERD 

COOERO 

COOERO 

COOERD 

COOERO 

COOERO 

COOERD 

COOERO 

COOERO 

COOERD 

COOERO 

COOERO 

COOERO 

COCERO 

COCERO 

COOERO 

COCERO 

COOERO 

COCERO 

COOERD 

COOERO 

COOERO 

CODERO 

COOERO 

CODERO 

CODERO 

CODERO 

CODERO 

CODERO 

COOERO 

COOERO 

COOERO 

COOERD 

COOERO 

COOERO 

CODERO 

COOERO 

COOERO 

COOERO 

COOERO 

COOERO 

CODERO 

COOERO 

COOERO 

COOERO 

COOERD 

COOERO 

COOERO 

COOERO 

COCERO 

CODERO 

COCERO 

CODERO 

COOERD 

COCERO 

CODERO 

COCERO 

COCERO 

CODERO 


A-3 



hy. 

49. 

44, 

47. 

4fl. 

41. 

10 . 

71. 

72, 
71. 
7S, 
15. 
74. 

77, 

78. 
71. 

40 . 
it. 
12 . 
11 . 
M. 
15. 
44. 
47. 
SB. 

41. 
10 . 
11 . 
12 , 
13. 
11. 

15. 

16. 
17. 
IB. 
11 . 

IfiO. 

tot. 

102 . 

103. 
101 . 

105. 

104. 
107. 

106. 
101 . 
no. 
111 . 
nz, 
m. 
111. 

115. 
114. 
117, 

116. 
m. 
120. 
121 . 
122 . 


C 

C 

f 


c 

c 

c 


c 

t 

c 


€ 

t 

c 


c 

c 

c 


c 

c 

c 


»IOMNTI%^JE 

’ ’CHU SIfADCm 

IF lC:>ul.«iE.COr.^T} GO T3 20 ' 

WRITE ni3l«T,470l Sl4W,Cai27,4LlK,CaU 
GO TO to 
20 COimvE 

IF «4lFMt lI.EQ.flDOATl GO TO 520 
IF <4LFMm.E0.E^D7R»> GO TO 10 
WRIU l7i0UT,4201 
WRITE H0lfl,440) 4lFH 

OElUG MINT If V IN tOlVNi OO 

IF C4lFH<m.F0.fRlNT1 HMNTs.TRyE. 

IF <4lFM(l>.NE.TMERfll GO TO 40 

THERML MOBLCh • CnECf FOR LONG OR SNORT fSEUOO COTVOtC 

IF MLfmil.lif.PCSLNG) 60 TO 30 
iONGs.TRUE. 

IF IHFmS I.EO.ITWO) L0NG22.TRUE, 

GO TO 60 

10 IF (4LPH(1).NE.FCS$NT ) 60 TO 500 
GO TO 60 

CNECF FOR INIM4L FARAnETER RUN 
10 CONTINUE 

If (ALPHm.NE.KlNtn GO TO 50 
FARINTs.TRUt. 

FCMGIOsHlNlT ^ 

WRITE UB3D» <H!NIT,m,50 1 
CALL INCORE (0) 

GO TO 60 

final FARAPiETER RUN 

50 IF CAIPH(3).NE.F1N£1 GO TO 510 
FARFiNr.TRUE. 

FCMGIDrFINE 

WRITE UB301 iriNE«tn,50> 

CALL INCORE 101 
60 TO 60 

CHECK FOR GENERAL PROBLEfl 
40 CONTINUE 

IF (ALPMm.NE.CENRLP) GO TO 10 
GENEflL=.TflU£. 

DO 70 Iz|,lO 

ioc( n^o 

70 CONTINUE 

SET UP title 

60 CONTINUE 
PlrO 
Jl=l 

10 call SREflOCd) 

IF TCOLl.NE.COf^^^NT) GO TO 100 
WRITE INOL'T.610) blank, A lPM,COLl 
GO TO 10 


V < 


C4R 

55 

tOA 

54 


f 4 

COR 

56 

CDR 

51 

CDR 

40 

COR 

41 

COR 

42 

CDR 

41 

CDR 

41 

COR 

45 

COR 

44 

COR 

4f 

COR 

46 

COR 

41 

COR 

70 

COR 

71 

CCR 

72 

COR 

71 

CDR 

71 

CDR 

75 

1CRS-D05 

CDR 

74 

CDR 

7? 

CDR 

7B 

CDR 

71 

COR 

60 

COR 

01 

COR 

62 

CDR 

63 

COR 

61 

COR 

6$ 

VCRS 1 

COR 

67 

COR 

68 

tOR 

61 

CDR 

10 

CDR 

11 

CDR 

12 

COR 

13 

tOR 

11 

VCRS 

3 

COR 

14 

COR 

1J 

COR 

18 

COR 

11 

COR 

too 

COR 

101 

COR 

102 

COR 

103 

CDR 

101 

COR 

105 

CDR 

106 

CDR 

107 

CDR 

108 

CDR 

109 

COR 

no 

COR 

lit 

COR 

112 
V 6 

COR 

111 

COR 

115 

COR 

114 


f .1, i i-'i 

^ " COOERO 
f ' COOCAO 
^ COOERO 
f COOERO 
' CODERO 
COOERO 
COOERD 
CODERO 
CODERO 
CODERO 
CODERO 
CODERO 
COOERO 
tOOERD 
COOERO 
CODERO 
CODERO 
COOCAD 
COOERO 
COQERD 
COOERO 
CODERO 
CODERO 
COOERO 
COOERO 
COOERO 
CODERD 
CODERO 
CODERO 
COOERO 
CODERO 
CODERD 
COOERO 
CODERO 
COQERD 
CODERD 
CODERD 
COOERO 
CODERO 
CODERD 
CODERO 
CODERO 
CODERD 
CODERO 
CODERD 
CODERD 
COOERO 
CODERD 
COOERO 
CODERO 
COOERO 
CODERD 
COOERO 
COOERO 
CODERO 
CODERO 
CODERO 
COOfRO 
COOERO 
CODERO 
CODERD 
CODERD 
CODERD 
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IQO CALL SRtADtm 

If I CaOE»C^.E»iO» GO to IJO 

WflIU CI»OUT,ASO> COtE.»l,tALPWl>J*l.li> 

If < HAST. GT , 201 GO tO 90 
jTil 

HtQ 

00 no 1 = 

IIAST-I 

If i 1 . 6 T. 20 > 60 to 90 

ltl%l 

TITlt« I UALFHtI) 
no cosUMif 

60 10 90 

120 WRITE ;N 0 UT,E^ 0 > CODE 

If (< UAST.EO.OT.ANOJEAAlNT.OR.PAAEU'in GO tO 190 

If niAST.GE. 20 » GO TO 190 

llASf^llAStM 

I FlU OUT TITLE WITH BlAhifS 

C 

DO no UUAST ,20 
title<i>=blahk 
no CONTIMJE 

c 

c imiTc title Qh tapes ; 

c 

199 CONTINUE 

call L'RTDTA toi 

IF (PARINT.OR.PARFIN) €0 TO 539 . 

CALL WRTPnT 10 ) 

t ZERO ARRAY Of FIIEO CONSTANTS FOR CALLS TO C*TARO 

C 

CO 150 Ul ,50 
IFlICd )=0 
15 C CONTINUE 

If ( ,N 0 T.GENEAL) go to 160 
IFlXCm )-2 
60 TO 260 
UO CO iinNUE 

I) (LONG) lflxC( 31 >sl 
F|IC( 50)=960.0 

t READ (BCD 3 N 0 DE DATA) BLOCA 


l?D CONTINUE 

CALL SREAOCU) ^ , 

WRITE (N3l‘T,6T0) BLANK ,C0L2T, ALPH,C0L I 
IF ( COLl .EO-CO^rNT ) GO TO WO 
‘ If ( AlPMl n.EO.RE^^ARld GO TO WO 
!f ( ALPHO I.NE.TEfiPB 1 GO TO 510 
IBD CONTINUE 

CALL SHEAOCm 

i’flWE (N0UT,679) Bl ANK ,COL 2T,ALPH,C0L1 
If ( coil .EO.COrrNT) GO TO 19C 
ff ( AlPHC I J.EQ.END) GO TO 230 
ABRNCH=l 
IN 00 £ = WRUE. 

ICOND- .EAlSE- 
LCOnST^. FALSE. 


V A 

COOERO 

tliR'iro'' 

COOERO 

tbR 119 ■ 

COOERO 

CiSR 129 ' 

CODERO 

CCR 121 

COOERO 

CCR 122 

COOERO 

CBR 123 

CODERO 

CCR 129 

COOERO 

CtR 125 

COOERO 

CliR 126 

COOERO 

CfR 12 T 

CODERO 

CCR 126 

CODERO 

COR 129 

COCCRO 

COR 139 

COOERO 

COR 131 

COCERD 

COR 132 

CODERO 

COR m 

COOERO 

COR 139 

COOERO 

COR 135 

COCERO 

COR 136 

CODERO 

CCR 131 

COCERO 

tOR 136 

COOERO 

COR 139 

COCERO 

COR 190 

CODERO 

COR 191 

COCERO 

tOR 192 

COOERO 

COR 193 

COOERO 

COR 199 

CODERO 

CDR 195 

CODERO 

COR 196 

COOERD 


COR I9l CODERO 
COR 190 CODERO 
COR 199 COOERO 
cca 150 COOERO 


CCR 151 

CODERO 

CDR 152 

COOERO 

COR 153 

CODERO 

CDR 159 

COOERO 

COR 155 

COOERO 

CDR 156 

CODERO 

CCR 151 

CODERO 

CDR 150 

COOERO 

CCR 159 

COOERO 

CCR 169 

CODERO 

YERS-905 

CODERO 

CDR 161 

COOERO 

CDR 162 

COOERO 

CCR 163 

COOERO 

CCR 169 

CODERO 

V 6 

COCERO 

CDR 166 

COOERD 

CCR 16 T 

COCERO 

COR 160 

CODERO 

CCR 169 

COCERO 

CDR WG 

corcRD 

V 6 

COLERO 

CCR W 2 

CODERO 

CCR in 

COOERO 

CGR W 9 

COOERD 

COR W 5 

COCERO 

CCR W 6 

CODERO 

CCR WT 

COOERD 

CCR W 0 

COCERO 



1 



^bR i|^8 

^oocrd' 

187* 


i;ihc<u^»T/6 


pOERO 

188. 


iOCM>=1 

pH 1»< 

COOERD 

18^, 


itNUHO 

tOH 1B2 

CODERO 

no. 


DO no 1 - 2,6 

tOH 193 

CaOERO 

ni. 


tacmnocd-n^itiiic 

COR 188 

COOERO 

182. 


ICN{ I 1=0 

tOR I8S 

COOERO 

m. 


180 CONTlhuE 

tOH 186 

tCfOERD 

188, 


C6U C6T6R0 

CDH 181 

CODERO 

185. 


C6U S9UFE2 C1,51 

CDR 169 

CaOERD 

186, 


mi vf^XOTA (11 

COR 188 

CODERO 

I8T. 


CALL VRTPnT (11 

(OH no 

CODERO 

188. 


IF ( .Tiax.LPAiNn ea to 21o 

(DR 181 

CODERO 

188. 


WHITE (hOUT.720) nN0,W»1A,A^9,WNT 

tOH 182 

CODERO 

200. 


WftItE OJ0L'T,7001 U,L0C(n,LENC|l,|rl,5l 

COR ni 

COOERO 

201. 


#irL0C(5 1HCNt5)-l 

CDR 188 

COOERO 

202. 


WHITE (Nlur.nO) 11.19(11,9(11,9(11,1-1,70 

tOH 185 

CODERO 

202, 


SO TO 230 

tOH 186 

COOERO 

208. 

t 


fOfl 187 

COOERO 

205. 

t 

9£AD (ICQ 3S0URCE OATA) BLOCK IF A148 

CDR 188 

COOERO 

2D6. 

C 


COR 188 

CODERO 

201. 


200 C08TtNL'E 

COR 200 

COOERO 

208. 


IF (ALFmI ll.lVE.OBl 60 TO 510 

(OH 201 

CODERO 

208. 


210 CONtfKuE 

COR 202 

CODERO 

110. 


CALL SREADCdl 

V 6 

COOERO 

211. 


WHITE INOUT,6701 BLA»«K,C012T,AIPH,C0L1 

COR 208 

COOERO 

212, 


IF (COLKEO.COrurNT) 60 TO 210 

COR 205 

COOERO 

211. 


IF (ALPH( n.CQ.END) GO TO 2)0 ^ 

COR 206 

CODERO 

218. 


IWOOEs. FALSE. 

COR 257 

COOERO 

215. 


10=,TRUE, 

COR 206 

COOERO 

216. 


LEW< 2 1-0 

tOR 208 

COOERO 

217. 


lEwnuo 

COR 210 

COOERO 

219. 


CALI OATAflO 

(OR 211 

CODERO 

218, 


CAU S0VEE2 (1,51 

tOR 212 

CODERO 

220, 


IF ( .AGT.iPRITiTI 60 TO 220 

CDR 211 

CODERO 

221. 


WHITE (NDUT,TOOI ( I,LOC( 1 ),IEN( 1 1,I = l,8 » 

COR 218 

CODERO 

222. 


ni-L0C(2) 

CDR 215 

CODERD 

221. 


Fl^LQCf 3)*IEN(3>-1 

CDR 216 

COOERO 

228. 


WHITE (N0Ul,nO1 (l,Bn>.BM>,9m,t£7>l,7n 

CDR 217 

COOERO 

225. 


220 C0KTI7IUE 

CDR 216 

CODERD 

226. 

C 


CDR 218 

CODERD 

227. 

c 

HEAO (BCD 3C0WCT0R OATAI BLOCK 

(DR 270 

COOERO 

228. 

c 


CDR 221 

CODERO 

228. 


230 CONTINUE 

COR 222 

COOtflG 

210. 


JPSTOT-0 

VERS 7 

COOERO 

23t. 


END Fltf 27 


COOERO 

212. 


REWIND 27 


COOERO 

211, 


CALL SREADCd) 

¥ 6 

COOERO 

238. 


WHITE <N0UT,670> BLANK, C0L2T,AtPH, COL 1 

COR 228 

COOERO 

235 . 


IF (COLl.EO.COPtPNT) GO TO 235 

CDR 225 

• COOERO 

136. 


IF ULPKI 1 >,CO.H€f!ARK) 60 TO 230 

CDR 226 

CODERO 

237. 


IF C ALFH( 3>.WE.C0N0ei 60 TO 200 

COR 227 

COOERO 

238. 


280 CONTINUE 

COR 220 

CODERD 

238. 


CAU SAEAOC(I) 

¥ 6 

CODERD 

280. 


WRITE <N0Ur,6T01 91 ANK,COL27 , ALPH.COl 1 

COR 210 

COOERO 

281. 


IF lC3Ll.E0,C0mp»NTl 60 TO 285 

CDR 231 

CODERO 

282. 


IF 1 ALPHC n.Ea.ENOI GO TO 265 

CDR 232 

CODERD 

283. 


KBRNCH2? 

COR 2)3 

CODERD 

288. 


LNJCE^, FALSE, 

COR 238 

CODERO 

285, 


ICOND-.TflUE. 

fOR 2)5 

COOERO 

286, 


iCONSrr.fftLSE. 

(OH 236 

COOERO 

287, 


LARRAy: .FALSE. 

COR 2)7 

CODERO 

28?. 


NNEWrLFNBKT-UOCIS HlEN(5 11«t 

COR 23? 

CODERD 



9“V 



150. 

251. 

152. 

251. 

25^. 

255. 

256. 

251. 
25fl. 
255. 
260. 
261 . 
262. 
263. 
265. 

265. 

266. 
262. 
266. 
26f. 
iro. 
2 / 1 , 
272. 
2/3. 
2M. 
2/5. 
2 / 6 . 
2 / 1 . 
V$, 

279. 
2B0. 
281. 
282. 
283. 
285. 
265. 
2B6. 
28T. 

280. 
285. 
250. 
291. 

252. 

253. 
255. 

255, 

256. 
25/. 
258. 
255, 

300. 
101 . 
3C2. 

301. 
305. 

305. 

306. 
307. 
306. 
309. 

sto. 

3n. 


mfiC^hr^^y/5 
L0C<6M10C(5WUM(5I 
Lim 6 no 
DO 250 1=7,10 

Locu ntocu-inNiNC 

lEHi t no 
250 COMTIML'E 
cm 08T6R0 
JJlSr=L0C<6> 

JJ€ND=U)C<6niCN(6)-l 

kTRITE 1271 (8( JJ),JnJJIST,JJENO) 

C8LL %m!^piTl2) 

Cm WRTDT6C2) 

RE8D (2/1 (B(JJ),JJsJJIST,iJC6<0> 

C8LL S0UC€Z(6,I0> 

If ( .NJT.IP8INT1 CO TO 260 
WftlU (NaoT,730 l m,NCR,NGT 
WUTE (NOUT,TOO) U,10C< 1 ),IC6K I >, 1=6,101 
m = LDC<6) 

«=LOC(ionLCNafl)-i 

WUTE IKOOT,/101 < !,18< n,8U >,8M l,l-ni,n) 

c 

t HERD (BCD 3C0NSTANTS DATa> BLOCK 

C 

260 CONTim 

CALL SAEAOCUl 

UfUTE (6/ai>T,6T0) BiA»K,COL27, AUPH,COU 
IK (COLl.EO.COffPiNTl GO TO 260 , 

IF (AlpKdKEQ.flEnARKl GO TO 260 
IF (AIFM( 31.NE .Ca^(5TBl GO TO 510 
IF <AlPH(l5).EQ,PRI6iT» KTPflfiT = .TRUE . 

2/0 CONTIW 

CALL SREftDCCU 

WRITE (W0UT,67O) BL ANK ,C0l27, ALP«,COLI 
IF (COLl.EO.CO/WNT) GO TO 2/0 
KIRMCRO 
L«0I1E-. FALSE. 

LCOWO=. FALSE, 

LCOWSTr.TRUE. 

LARRAYs. false. 

NN^U=L£^iBAT-(LOC< 10)*LEN( lOmi 
NINC=ANEU/2 

ioc< u nioci loniENc loi 

IF (CENERL) LOCmni 

LEN( n no 

LOCI union nnNiNC 
LE«( uno 
CALI DATARO 
CALI 5DUEEZ < 11,12) 

CALL iRTDTA (3) 

CALI WHTPnT (31 

IF ( .WOT.IPRINTI GO TO 280 

WRITE .'(^(OUT, 750 ) NUC,^EC1 ,«EC2,NCT 

wniie (w3ur,F50) u,ifixc( n,iFij<cu i,iFn(CM ),[=», 50) 

WRITE (W3UT,/0CH U ,LOC( I >,LENU », 1 = 11 , 12 ) 

/lULOCdl) 

«=LOC( IZ>*LEN< 12 ni 

WRITE (K3UT,/10) d , IBd ),Bd I, Bd 1, 1 =wi ,/» 1 
C 

C READ (BCD IflRRAY DATA) BLOCK 

C 

260 CORTIAX'E 

CALL SfltAOC( I 1 


COR 235 
W 2^0 
COR 251 
CDR 252 
CDR 251 
COR 255 
COR 255 
tOR 256 
VERS ? 
VCRS 7 
VERS 7 
VERS 7 
VERS 7 
VERS / 
VERS 7 
CDR 250 
COR 251 
CDR 252 
CDR 25] 
COR 255 
CDR 255 
CDR 256 
CDR 257 
CDR 258 
COR 255 

V 6 

cor 261 
CDR 262 
CDR 263 
COR 265 
COR 265 
COR 266 

» 6 

CDR 268 
CDR 265 
tOR 270 
COR 271 
COR 2/2 
CDR 2/1 
tOR 2/5 
COR 2/5 
CDR 2/6 
roR 2/r 

COR 218 
CDR 2/5 
CDR 280 
tOR 281 
CDR 202 
fOR 283 
COR ?a*» 
CDR 285 
CDR 236 
CCR 237 
COR 298 
tOR 289 
COR 253 
tOR 251 
COR 252 
COR 253 
CDR 255 
COB 255 

V 6 


COOERD 

CODERO 

COOERD 

CODERO 

CODERO 

C3DCR0 

CODERO 

CODERO 

CODERO 

CODERO 

COOERD 

COOERD 

CODERO 

CODERO 

CODERO 

COOERD 

CODERO 

COOERD 

COOERD 

CODERO 

COCERO 

COOERD 

CODERO 

COOERD 

CODERO 

CODERO 

CODERO 

CODERO 

COCERD 

CODERO 

COOERD 

COOERD 

CODERO 

COOERD 

COOERD 

CODERO 

COOERD 

CODERO 

CODERO 

COOERD 

COOERD 

COOERD 

CODERO 

CODERO 

CODERO 

COCERO 

COOERD 

CODERO 

COOERD 

CODERO 

COCERO 

CODERO 

CODERO 

CODERO 

CODERO 

CODERO 

COCERO 

COOERD 

COOERD 

COOERD 

COCERD 

COOERD 

COCERD 
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31^. 

31$. 

31ft. 

3IT. 

3t8. 

318. 

320. 

321. 

322. 
32). 
328, 
32$. 
326. 
32T. 
32S. 
328. 
330. 
3)1. 

332. 

333. 
3)8. 
3)$. 

336. 

337, 
3)3. 
3)8. 
380, 

381. 

382. 

383. 
388 . 
38$. 
38ft. 

387. 

388. 
388. 
350- 
381. 

352. 

353. 
358. 

355. 

356. 

357. 
35B. 

358. 
36C. 
361. 
3ft2, 
3ft3. 
368. 

365. 

366. 

367. 

368. 

369. 

370. 

371. 

372. 

373. 
378. 


MITE tNJUT.6701 ,C0 l27«*LPH,C0LI 

, IF (COU.eO.COr/tr^Tl CO TO 290 
IF CAlPHai.Ea.PFrARK) C(3 TO 280 
IF <«LPHm.6iL,ftARY8> GO T) 510 
IF (ftLPMU8>.ta-PRIHn HYPSM^.TftuE. 

180 co^nnuc 

cm SREftocin 

MITE <N0uT,6T0) 8l»Wt,C0L27,ftLPM,C0H 
IF (COLl.ta.CO^NT) G3 TO 280 

IF (ftLPHm.ea.C8D) co to 300 

IBRKCH::8 
LftiaOE = .FftLSe. 

UONO=.FftLSe. 

lC0N5T=.FftL5C. 

IftRflAY^.TRUE. 

L0CU3>n0C(m«LEN(12) 

LCNa3»^0 

LOC( l8)rLOCm>*200 
llhi 18>r0 

10CU5>=L0C< 18)#200 
ifW 15 >=0 
^ CALL OATftRD 

CALL inBED 
300 CONTim 

CALL SOUEEZ 113.15 1 
CALL WRTOTA 18) 

CALL MTPnT 18 ) 

If 1 ,»iOT.lPRmT) GO TO 310 
MITE lfti0L*T,T60) LENA 

MITE IftJOuT.lOO) 1 1,lQCm«Uftf[ I ),U13,I9 3 

m=L0C(l3) 

n=LDC< I5)HCN(15)-1 

MITE IMOUT^rtO) (f JBm^Bm.BM l^I-ni^n) 

C liaRl^AL BCTURFl 

c 

310 CONTINUE 

IF (GENERL) GO TO 320 

C SET LGC ftf^D ICN FOR CAU TO FSEUOO 

HIJEWtLElyBKT-l LOCI 15 l+LENl 15 H*1 
NIftiC=6!NEi>r/2 

LOCI U)=L0C1 15 >»LEW 15 1 
UKi U>=0 

iaCUT>=LOC< 1ft UfilKZ 

LEftK m-0 

C CONVERT ARRAYS AND CONSTANTS TO FORTRAN 

320 CONTINUE 

R=8 

330 IF UCNni).E0,O> GO TO 800 
ArLOC(fJ) 
ftENO=«HENlfi) 

.380 ITYPErfLOl 3,c,!0(im 
FLm0.5,lADDR )=ITY?E 
lTYPEiH0DnTYPE,8> 

ICN0=1 

IF KITYPE.EO.Ol.OR.l I TYPE. EO. 21) IEND=2 
00: 380 IT| JENO 
LITA=FL0(6 J JBU J> 

|ANUfl:fLD< r,lV,TB(lf »> 

If UITA.E0.1 ) GO TO 350 
CAlI RElACr < 2, IflNfn, J,fn 
CO- TO 360 


rr r » tM 28 ? f -r 

f|. ) t< 1 CDR 281 . 

V , ton 288 . .1 

I ». i - COR 300 

' * COR 301 

COR 302 

V A 

COR 308 
COR 305 
COR 30ft 
COR 307 
COR 308 
COR 308 
COR 310 
tCR 111 
COR 312 
COR 313 
COR 318 
COR 315 
COR 3U 
COR 317 
COR 318 

V 8 

COR 318 
COR 320 
COR 321 
COR 322 
COR 323 
COR 328 
COR 325 
COR 326 
CDR 32 r 
COR 328 
CDR 329 
COR 330 
COR 331 
COfl 332 
COR 333 
COR 3)8 
tOR 335 
COR 33ft 
COR 337 
CCR 338 
COR 338 
COR 380 
CCR 381 
CCR 382 
COR 383 
CCR 9«(8 
COR 3R5 
COR 386 
CCR 387 
CCR 388 
CCR 388 
CCR 350 
COR 351 
CCR 352 
CCR 353 
CCa 358 
COR 355 
CCR 356 
rOR 35 7 
CCR 358 


> C0OERD 
M f « COOEAD 
< :> . COOERO 
CODERD 
CGDERO 
COOERD 
COOEfiO 
COOERD 
COOERD 
CCOERD 
COOERD 
COOCHO 
COOERD 
COOERD 
COOERD 
COOERD 
COOCRO 
COOERD 
COOERD 
COOEAD 
COOERD 
COOERD 
COOERD 
C3CCRD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
COOERD 
CODERO 
CODEAO 
COOERD 
COOERD 
CODERO 
CODERO 
CODERO 
CODERO 
CODERO 
COOERD 
CODERO 
CODERO 
CODERO 
COOERD 
COOERD 
CODERO 
COOERD 
CODERO 
CODERO 
COPERO 
COOERD 
COCERD 
COOERD 
. COOERD 
COOfRO 
CODERD 
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350 1841071= MW ^NUC«l 

COR 359 . ^ 

CDOERO , 

3T6, 

IF <ft.E0.9) l9NU7V:UNUn*WtCI 

ct»« 34 d;; , 

CaOERD . 

17T. 

340 rLCl5,l,lADClUiLIT9 

COR 34 1; 

CODERD . 

371. 

FL0(6,14 jADDRlrlANUn 

COR 342 ,, 

CODERD , 

379. 

LlTK = FLD(21,tJBn( n 

CDR 343 

CaCERO 

385. 

KVUfUFLD(22^l9 JOntn 

COR 349 

COOERO 

381. 

IF <L1U.E0.1) GO TO 370 

CDR 345 

COOERO 

30£. 

CALL 8ELACT ( 3,KNU71,i,H ) 

CDR 344 

CODERD 

383. 

EO TO 380 

COR 347 

CODERQ 

389, 

370 ■Mjn=KNUFi*NUC»l 

COR 348 

CODERD 

385, 

IF (f1.€0.91 INUn = KNl'fl*NECl 

CDR 369 

CODERD 

384. 

IF (KKL'n.GT. 81911 CAU ERRnES 1 90,Kf»Un,0,0 ) 

COR 370 

CODERD 

381. 

380 FL0( 22,1, IA00A>=LITIC 

COR 371 

CODERD 

388. 

FLDI 23,13, IADDA >=KWUH 

CDR 372 

COOERD 

309. 

181K);1ACDR 

CDR 373 

COOERO 

390. 

lAOOR^O 

CDR 379 

COOERO 

391. 

« = K*l 

CDR 175 

COOfRO 

39^. 

390 CONTINUE 

COR 376 

COOERD 

393. 


COR 377 

COOERO 

399, 

IF niTVPE. EQ.O). OR IITTFE. £0.3)1 

COR 378 

COOERD 

395. 

If U.LT.FEnDI go To 390 

COR 379 

COOERO 

394. 

900 IF <n.C0.91 GO TO 910 

COR 380 

COOERD 

39f. 

Ptr9 

COR 301 

COOERO 

390. 

GO TO 330 

COR 382 

COOERO 

399. 

910 CONTINUE 

COR 183 

COOERO 

933. 

IF (.NOT. 10) GO TO 990 

COR 389 

COOERO 

901. 

«iCC=NUC*NECl*NEC2*l 

COR 385 

CODERO 

902. 

J=-l 

CDR 384 

COOERD 

903. 

8=L0C(21 

COR 387 

COOERD 

909. 

8EN0=F*LEN<2) 

CDR 388 

COOERO 

905. 

U00R=0 

COR 369 

CODERD 

904. 

920 lTm=FLDl 0,4, loom 

CDR 390 

CODERD 

907. 

IrK^l 

CDR 391 

CODERO 

908. 

IENO=l 

COR 392 

COOERD 

909. 

IF < ITYPE.Gr.3) IEN0=2 

COR 393 

COOERO 

910. 

DO 980 Ist,IEND 

COR 399 

COOERO 

911. 

IF (I TYPE. EO.n GO TO 950 

COR 395 

COOERO 

912, 

lITArFLOU,!, 18(G)) 

COR 394 

COOERD 

913. 

|ANU71-FL0( 7,19, 18(G)) 

COR 397 

COOERO 

919. 

IF (LIlA.EO.n GO TO 939 

COR 398 

CODERD 

915. 

CALL SELACT ( 2, 1 ANun,3,2 ) 

COR 399 

CODERO 

914. 

GO TO 990 

COR ROD 

CODERO 

9tT. 

930 lANun-lANL'W+NCC 

CDR 901 

COOERO 

916. 

990 FL0<5,1,IA0DR >=LI?A 

COR 902 

COOERO 

919. 

FlD(4,l4,lAD0R>=IANt'rt 

COR 903 

COOERO 

920. 

950 LITKrFLm2l,l,r8CPf )) 

COR 909 

CODERO 

921 . 

KNUr<=FL0l22,l9,lB(G>) 

COR 905 

COOERO 

922. 

IF (LlTK.tO.n GO TO 940 

CDR 904 

COOERO 

923. 

CALL flCLACT ( 3,GNL>m,J,2) 

CDR 907 

COCERO 

929. 

GO TO 970 

• COR 908 

CODERO 

925. 

940 ANL-n:GNUn*NCC 

COR 909 

CODERD 

924. 

IF ( KNfn.GT.8l9l ) CALL EftRnES < 90,KNfW,0,D ) 

COR 910 

CODERD 

927. 

970 FLC( 22,1,IACDR)=L1TG 

COR 911 

COOERO 

928. 

FlO<23.l3,lADDR)rFNUn 

COR 912 

COOERO 

929. 

I8(F)=IADCR 

COR 913 

COOERD 

930. 

lADORrO 

COR 919 

COOERO 

931 , 

K^KO 

CDR 915 

COOERD 

932, 

980 CONTINUE 

CDR 914 

COOERD 

931. 

J = J-I 

COR 917 

COOERD 

939. 

IF (F.LT.KENO) GO TO 920 

COR 918 

COCERD 

935. 

990 CONTINUE 

CDR 919 

COOERD 

934. 

INOOfr. false. 

CD9 920 

COOERD 

937. 

IfOND?. FALSE. 

rOR 921 

COOERO 




LCOMTs.FBtSE, ‘ " ' 

' kOR- All 

’ CODER D 


tOOROrs. FOLSE. ,f j r r .«(<♦• . r 

■ CDR 511 

f‘ COOERD 


HITURO * ‘ . 1 ?n 

COR 515 

' COOERD 

^•K\. 

C . = * . . 

COR 515 

' COOERO 


C IRRIO RETORO . ' 

CDR 526 

' COOERO 


C • i- 

COR 52? 

COOERD 


500 WRITE ni3uT,690> 

CDR 528 

COOERO 


IROOTO^I.O 

CDR 529 

COOERD 

Mi. 

CO TO 910 

CCR 510 

COOERO 


510 WRITE <NOUT,680l 

COR 511 

COOERO 

^18, 

EROOTOal.O 

tOR 512 

COOERO 

^5ft. 


COR 51] 
COR 515 

COOERO 

COOERD 

M». 

RETURN 

tOR 535 

COOERO 

Ml. 

C 

CDR 516 

COOERO 

^55. 

c fORAnETER RUMS 

CDR 517 

COOERO 

^5^. 

c ■ 

CDR 538 

COOERD 

M5. 

510 COMTlMUe 

COR 539 

COOERD 

M6. 

LEMO=, FALSE. 

COR 950 

COOEFID 

^57. 

MOREAD=, false. 

COR 551 

COOERD 

MB. 

ISTsl 

COR 592 

COOERO 

M^. 

If (CEMtRL) ISTsl 

COR 551 

COOERO 

MO. 

00 610 I:1ST,0 

COR 555 

CODERD 

W. 

IF (lEMD.OR.MOREADI GO TO 560 

CDR 955 

COOERD 

Ml. 

900 CALL SREAOCT 1 1 

V 6 

COOERO 

M3. 

WRITE (N3UT,6T0I 5LRMK«C0t27,RLPH»C0U 

COR 557 

COOERO 

M^. 

IF (COLt.Ca.COWTiMT) GO TO 500 

CDR 558 

COOERO 

M5. 

IF TAlFm U.EO, RCnARO 60 TO 5oO 

COR 559 

COOERO 

Mi. 

IF (ALFHdI.ME.EMOFftni 60 TO 550 

CDR 550 

COOERO 

Ml. 

IEND=.TRUF, 

COR 551 

COOERO 

MB, 

CO TO 560 

CDR 552 

COOERO 

MO. 

550 IBHC^ALPRd) 

COR 553 

COOERO 

070. 

DO 960 J=1,0 

. COR 555 

COOERO 

on. 

IF MBHC.EO.BLOCKtjn GO TO 570 

COR 555 

COOERD 

071, 

560 CONTINUE 

CDR 556 

CODERD 

073. 

CO TO 510 

COR 557 

COOERO 

070. 

570 CALL SREftDCU) 

9 6 

COOERD 

075. 

WRITE <M0UT,67OI 6l AfyK.Caiir,AtPH,CaL1 

COR 559 

COOERO 

07i. 

IF ICOLLEO.COMfiMT) GO TO 5T0 

CDR 960 

COOERD 

077. 

IF <ALPH( D.EO.REnflRKI GO TO 570 

COR 561 

COOERO 

07B. 

560 CALL INCOHE U) 

CDR 562 

CODERD 

079. 

IF 1 AlPHU >.E0.EN0> GO TO 600 

CDR 561 

COOERD 

OBO. 

MOREAO-.TRUE. 

CDR 565 

COOERO 

081. 

IF ncHC.ME.nocMm go to 60o 

COR 565 

COOERO 

081. 

MOREAC=, false. 

COR 966 

COOERO 

081. 

R8RNCH-I 

CDR 567 

COOERD 

080, 

DO 590 J=l,9 

CDR 568 

CODERD 

085, 

L10GIC<J»=. false. 

CDR 569 

COOERD 

08i, 

590 COMMNUE 

COR 570 

COOERD 

087. 

llOGICC n=.TflU£. 

COR 9TI 

COOERD 

088. 

CAIL CATARO 

CDR 572 

COOERD 

089. 

600 CALL WRTOTa <1) 

COR 571 

COOERD 

090. 

610 COMTINUE 

CDR 575 

COOERD 

091. 

GO TO 999 

COR 575 

COOERD 

091. 

C 

COR 976 

COCERO 

091. 

c 

CDR 977 

COOERD 

09^. 

610 FORMAT i IHI//1 

CDR 970 

COOERD 

095. 

630 format (7i«As,It,||A6^A|l 

CDR 979 

COOERD 

096, 

690 FORpAT (Al,tlA6,2AI > 

COR 900 

COOERD 

097, 

650 FORnAT C7l,Atl 

CDR 901 

COOERD 

098. 

660 FORhaT ( 7K,A<4,Al.t|A6,A?t 

CDR 902 

COOERD 

099. 

670 FORr.AT < A|.A6«A9,At.^A^,A^.Al 1 

COR 9?3 

COOERD 

500. 

€60 fORJ'AT (€H « « »,8IH DATA BLOCKS IN l7iPR3?ER ORDER OR 

IlLEGACCA *'?9 

COOERO 
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902. 

903 . 
50^, 
935 , 
9Dfc. 
93?. 
9oa. 
939. 
910. 
9U. 


IL 0L?tr OCSlGNATlOm VntiVHn^ZO .l con 989 

•90 FOr^KT («H • • ««90H the FSEUD3 CCriPL'TE SCOfEtiCC U3IC9I09 WJ OCCOn 986 
I either 5PCS OR IPCS, «R0 START IH fOU’W* lU COR 98? 

700 FORMAT U9H ARRAYS lOC A^O lEN./fStlOn CDR 9B8 

no FORnAT C12K DATA 8UCAET, /( 110, n0,F20,9 ,9 f , 3?3 Tl COR 989 

?20 FOPFiAT (/9H h90.l6,9H ?ihiA,I6.9H ty^<8,U,9K CDR 990 

no FORMAT I/9H RCl,t6,9H ACR,I6,9H lXGT,t6l tOR 991 

?90 FORHAf (/9H NUC,t6,5M liECl,U,5H I^EC2,I6,9M KCT,I6? COR 992 

750 FORMAT (/22H FlIED CONSTANTS ARRAY,/! I), I 20,F20.9 ,81,012 >? COR 993 

768 FORnAT !/9H ICM.161 CDR 999 

CMD COR 99$ 


COOERD 

COOCRD 

CODCRD 

CCDERD 

CODtRD 

COOCRD 

COCERO 

CODERO 

COCERO 

CODERO 

COOERD 



u-v 


Ifi&ED 


(roEO inoio ineEO 


In&ED 


tf'BED 


InBEO 



1. SUBR3UTUE I^BCO 

I. C >• 1 1 • •• • ’ 

1. cowan m‘C*Ef/ mu 

n* C&wO^i /OAT* / Dcniui^ K&T, W, CADaU 

5, COwaN /POINT / LOCCIQI, ICmjO) 

«. DtPtENSlON KEVAIAl/2H«A,2H»t,2H*r^2n«G/ 

T. LOGICAL CRDEflR 

», C 

t. LI = I0cn3> 


ED. 


L* a lENC ll> ♦ LI -E 



WA a LDC< IA> 



n * locc - 1 



00 300 



HI s ♦ l 



H2 t |<2 ♦ IBtBHI 



Hh = W ♦ 1 



ICY = BH 



DO AOO I=«l,n2 



fLD<0,l2,IEY) * rL0(0,12«1B<EI 



00 10 Krl,A 



IFUEY .CO. RCVAdni 60 TO AO 

IE. 


10 tONTinuE 



69 TO AOO 

I A, 


AO nun z IBUI 

1$. 


CALI C0NVRT(tl,3O,IVUn,CP0CAA) 



IF ICADERA) 69 TO 3B0 


c 




$i €0 T9 (100,200,300.350), A 


c 


30. 

c 

ARRAYS 


c 




100 L: I 



U « LDC(IA) 



1ST X LOCim 



EERO X 1ST ♦ LEW 13) - 1 

S(. 


DO lAO JJ^IST.ICND 



innUH .CO. IKJjn 69 T9 340 

30. 


t X L • IBltU 

30. 


U X U ♦ 1 



lAO CONTINUC 



60 19 360 


c 


A3. 

c 

COnSTARTS 


c 




200 ntoc X LOCI n ) 

A( . 


RL€« = WUC 



GO TO 340 


c 


AO, 

c 

TEflPERATURES 


c 

- 



300 RL9C a LOCI 1 1 



nccN X Lcnm 



60 TO 340 


c 



c 

coRDiicraAs 


c 




350 NL9C = LOCI 5 > 



NLEN = RGT 


c 



0 


IBBED 


into 

ir Ml 

^ ' i. 


l^ftED 

IP^BED 

IrBED 

«m ir^BEO 

••-1 I^^BED 

iPtBED 
IWD 
I^BED 
EBBED 
EBBED 
EBBED 

ebbed 

EBBED 

EBBED 

Ebbed 

IBBEO 

ebbed 

IBBEO 

EBBED 

IBBEO 

IBBEO 

ebbed 

IBBEO 

EBBED 

IBBEO 

EBBED 

IBBCD 

IBBEO 

IBBEO 

IBBEO 

ebbed 

EBBED 

IBBEO 

IBBEO 

IbbED 

EBBED 

IBBEO 

IBBEO 

EBBED 

IBBEO 

IBBEO 

IBBEO 

EBBED 

IBBEO 

EB8E0 

Ebbed 

IBBEO 

Ebbed 

EBBED 

IBBEO 

IBBEO 

IBBED 

IBBEO 

IBBEO 

IBBEO 

IBBED 

IBBEO 

IBBED 

IBBEO 
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II 

•“lo. 360 CALL SElkRCmilfL'F»»T Rt NIOC 1,WLEK,1.1 \ i r. -iw m * M- 

61. tF(L> 360«380«390 

6t. 360 CRDATA = 1.0 

43. UN - I - P«1 ♦ I 

49.* ^neu.3651 I«m,NNj6<Pi> II 

43, 3SS FOHrAHSH » • • 46, 23M PEftRCNCEO 4T LOCATION 15, 

66. I OH OF AHRAY 15, 26« 1$ HOT IN THE LIST • • •> 

or. CO TO 900 

46. C 

60. 350 16(1 > s L 

TO. « 

It. 500 CONTINUE 

T2. C 

T3. 500 CONTINUE 

T5. RETURN 

T5. C 

T6. END 


Mia 

tHAED 

INBED 

INBED 

iNBED 

INBEO 

INBCO 

INBED 

INBED 

INBED 

INBED 

INBED 

INBCO 

INBED 

INBED 

INBEO 



Cl“V 


SINDA S1K0A SINOU SINOA SINOA 


I. "Ux* SfC HlEFR3-BUCRD-URmi-$TFFfl-FIiy0R«-S0L‘EE2-SRE*DC 

*. 0 SEG W.IW-*{EGlT,fiUR,GENLNK,R,B-BR,C.r> 

s. i SE6 rsEuoa-PCSi 

B StG CODERQ-DRTRRD-ERftn£S-CO^V«T-TrPCMit-OORTR 

J. B» SE6 RELRCT-yRTOTR*URTPnT-lNCORE-5ETFFJT-GEIWW-MW3BES,C01«5Sl 

B- C SE6 PRCSUB-^INOftH-FlXTOFN-ALPINT 

P SEG SFLIT-SKIP 

■ . BLf BUFRl*.^^00?4EW,WCR0 

B. ^UR $EG WDUR-BUFem-mODNEW-nuRCRD 



/ 


SIKDR 


SIMDR 


SlNDi^ 


SItfOR 

SIMDR 

smoR 

SIMOR 

••-I SIROR 
SIMDR 
SINOR 
SINOR 
SINOR 
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1 . 



Sl“V 


I 


A8SI 


mi 


*BSi ' 


*BSI 


Afcsi 


(tiH'fc f W f i trniV 

BBSl ABSt B8SI 


f A * * «l 


MSI 


C Jif f 't 


BBSI 


t. FttiCTiail ABSim 

8. ABSI > BBSCII 

S. PCTURIV 

iHti 


«BS1 

ABSl 

ABSt 

ABSl 
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SU»R)UT|H£ UBimilL0C«fC,Sl>P'aL.$UP«^1 

iOCiClkL tl^LCT 

Ci>«K3^ / CRUm 

/FiitaN/ coKtni 
CanPOH mrJP f UM 
/S3'JflCC/ 01 n 

cowatl /ISPACE/ HOlFl. PH«, titoi 
C0m0*i /DinCNS/ kW, MKA 

oir^ti^sisN laccM > 
oiriF(«sia^ mdatau) 

DlrFMStON AEXTm 

tOLMVAUEKCf <C0NU),Tl»in, C C0N( 2 >,TI«lCI, (COW 22 l»CTIf<En 
COUIVALEKCE IDATA,N0ATA», (EJIT,NE«T> 

wiHi oTAvm X nr<NNC«i) 

mr = NKA ♦ KND 
HhiC ' MTIt - NMT 
CTPLCT = .TRUE. 

IFdJTiFiEl .ET. O.Ot EIPLCT = .FAtSE, 

IFtfVLOnn .EO. B> GO TO 102 
CAU TGPLIN 
WR|TEU,101 ) KLOCt 1 ) 

toi rORflAHSTHO* ♦ • INCORRECT WUW&ER OF ELEMENTS INPUT TO CABIN, 1C 
1= 15, 7H • ♦ 

CALL WlABCA 
CALL EIIT 


102 NST 
NCRV 
NCON 
LHC 
IHFP 
LMTB 
LAR 


NLOCIE) 
NLOCOI 
NLOCIA) 
NL0C($ I 
NLOCCE) 
NIOCITI 


NSPT s 0 
NLI = 0 
NL2 ' 0 
R13 2 0 

irUHTfl .GT. 01 Nil » NOATAUHTB) 

IFCLHFP .GT. 01 Nl2 s NDATAILHFP) 

IFU.HC .ET. 0) NL3 = N0ATA(l«C I 

NSPT - (NLI/'i ♦ N12/5 ♦ NL3/2) • 3 

NEIttlARl = NSPT 

iFINDlh .EE. NSPU 60 TO lOA 

NEED = NSPT - N0!P» 

call TOPtIN 

WRlTE4f,t03) NEfO 

103 FJflrAliPJHO* • ♦ INSUFFICIENT OVNAniC STORAGE avAIiABlE FOR CABIN 
I ANALYSIS SUBROUTINE • • • 77 6* 5HSH0RT 15, ITH LOCATIONS I 
CALL LlK&fA 
CALL EXIT 


tON CCNTIVJE 


CABIN 


CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 
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• t. 
43 . 
4 %. 

45 . 
4^. 
4F. 

46. 
45 . 
TO. 

71. 

72. 

73 . 
75, 

75 . 
F4. 
71. 

76. 
71. 
60. 
61. 
62. 

63. 
65. 
65 . 

64. 
67. 
16 . 
61 . 
10 . 
11 . 
12 . 
13. 
11 . 

15 . 

16 . 

17 . 

18 . 
11 . 
00. 
01 . 
02 . 
03 . 
01, 

05 . 

06 . 
07 . 
OB. 

09 . 

10. 
!l. 
12. 
13 . 
II. 

15. 

16 . 
IT. 
16 . 
11 . 
20 , 
21 . 
22 . 


NS * tlD«TJKll$T»ll 

NVl > l4B$(N04T4(hSTM ^ I 

IF 1N06T4(NST3 .LT. 61 GO TO 2 

IMItS .ItE, 6¥l/3) call E6fU3HlSn 

NOATIMIISTI = -NDATAINSTI ' 

2 IF (4CATA(KC1V> .L7. 0 ) GO TO i 

lFO(DAT«(NCav> .4£. 6> CALI CnR(3H2ND> 

N0AT4(NCfiV) = -K0AT4CNCF.V1 
1 lf(KD4TA(6C0H) ,KZ . Ill CALI CRR(3H3fl01 
MCPA : NOATAlNCRVtl) 

NC11 r NDATAINCRV»5> 

LA^A : hOATA(NCRV»8) 

RA : CATA( NCON^l 1 

6V 5 tATA(NC0N*2l 
1C s CArAtNCC^O) 
ft s CATAtKC3N*11 
1C e 0A7A{Mta»45) 

W > DATA(^CQN«4) 

1SICA6 5 CATA(NC0N»71 
PO = DAmNCON+BJ 
TO s 0ATA<NCaM*1) 

CQNV s DATA(KCON«tO> 

72 s OATAtNCOf^MI 1 
FLOIN 7 0.0 
PSIIN = 0.0 
UN = 0,0 
PLOCP * 6.0 
DO 5 Ul,RVl,3 , 

IOC s NST » t « t 
lOCl » IOC ♦ 1 
10C2 s toe ♦ 2 
HO = OATA(LOC) 

IF! IABSC#JDATA(LOC)).LC, 11191 .UNO. I A6S( NDRTM IOC 1 1.GT. 61 
I FLO = POL<NDATAaOC».T|fin 
PS! - DATAllOCl) 

tfUAB$(RDATA(LOCl>).LC. 19999 .AND. lABSC NOATAl UCI ll.GT. 01 
1 PSI = POL<NOATA(lOCn,TINE> 

TEfjP - DATA(10C2) 

IF( 1AB5( NOATA( L0C2 )>.LE. 11919 .AND. !ABS( N0ATArt0C2 >1.67. 01 
X TEFiA = P0L<N0ATA<L{JC21,T|WE> 

FtOlfl = FLOIN ♦ FLO 
PSIIN = PStlN ♦ FLO*PSI 

CPIN = CP0LlNCPA,TE«P)»PSI*P0UNCPV,TEnP)l/n.5*PSI I 
TIN * TIN ♦ FLO#CPIN*TEr.? 

FtCCP = FLOCP ♦ HO^CPIN 
5 CONTINUE 
PSIIN 2 PSIIN/FIOIN 
TIN 5 TlN/FiatP 

FLOC r POL( NOATA( NCRV*1 l,TinE > 

4‘VIN. = TINC*Fl 01N»P5IIN/( l.0*P5UNl 
RG = rami .6*PSnN/XCl/< 1.0+PSMNl 
RKjrN 5 PC/IRGM TIN-TZl) 

Flout r koin*( wv+uv/psicabi/vc/rmoin 

WVOUT 2 TlNC*FLOUf*PSlCAB/a.O*PSICAttl 

yv = WV ♦ WIN - WVOUT - SunwL 

DATA(\eON*6l 2 UV 

PV 5 WV*flV*C TC-T2 1/VC 

PA r PC - PV 

WA = VC»PA/RA/< TC-T2 I 

PSICA? s WV/WR 

DArA{».tON‘M c PSICAB 

VA = POLINDATA( NCRV>2 1,TC ) 


CABIN 

CABIN 

CABIN 

CABIN 

cabin 

CABIN 

CABIN 

CABIN 

cabin 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

cabin 

Cabin 
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1 



CV = POUNOATAlNf:flV*31,TC> ' ' ' ' ' 

12A* 



CAA * POKNCAA^TO 

12S. 



tAV » AOLtNCPV.TC) ' 

12A. 



CA s A3LlNgATACNCAW«61.TC1 

m* 



C9 5 fOLUOATAINCAy*n JC1 ' " 

IZB. 



UC » IIC*UA*PSlC8B»UV>/tIC«PSlCAB1 - ^ 

119, 



CAC ^ JCPA*PSICAB*CPV>/n.O»ASlCABI 

IIB. 



CC » |lC*CA*PSlCAB*Cyi/llC*ASICAB> 

m. 



AhOC 7 (NV«WA1/VC 

m. 



K = TC ♦ (PLOlNflTlN-TCI - Sl'I^OL/CAC l/tWV*WA MTINC 

13B. 



ARC = CC/(RHOC*CPC) 

139. 



SWOL = 0.0 

139. 



SUfVL > 0.0 

13B. 



U = lAR 

I3T. 

C 



130. 



IfUHTB .CO. 0> 60 TO 25 

139. 



ARC31 - PRC**.31 

190. 



infOO<NDArA(LHTB),9» ,NE. 0> CAU CRR(3H7TH1 

191. 



00 20 I=T»NLl,9 

192. 



IOC = l«TB * I 

193. 



i s NCAtfl(l.OC> 

199. 



01 s DATAdOCMI 

195. 



AI s DATA(10C*2I 

196. 



VINO - 0ATAU0CO1 

193. 



tl 5 viwo»floc 

190. 



n = VI*OI*RHOC/UC 

199. 



in ir|l((RC-22000 1/l8000»l »3J0 

150. 



INU S .93 ♦ .533*S0RT(Rn*ARC3l 

151. 



60 TO 19 ' 

192. 


f 

INU = .93 * .193«RC«9.618«ARC31 

153. 



60 TO 19 

159. 


It 

INU :: .93 ♦ .0265«RC«« .0O9-PRC3I 

155. 


19 

KA £ AI«CC»?[NU/01 

156. 



CALL OSUn 

153. 


20 

CONTINUE 

150. 

c 



159. 


25 

inLRFP .EQ. 01 60 TO 35 

160. 



ARC33 5 CBRTIPRO 

161. 



IflMDlNBATA(LHFA),5 1 .NC. 01 CALL ERR(3H6TH1 

162. 



00 30 l£l,NL2,5 

163. 



toe = LHfP ♦ 1 

169. 



i r NDATKLOCI 

165. 



11 s OATAIL0C*ll 

166. 



11 = CATA(L0C«2) 

163. 



A1 £ OAIAILOCOI 

168. 



VIWO s OATAflOC»9» 

169. 



91 = viwo^rtoc 

130. 



VRU £ ¥I*RH0C/l'C 

131. 



INU r .669*PRC33M SORT! VftU*l Il^Iin ^ SORT! VRU^I1 1 1 

132. 



HA = 9l*CC#5(NU/II 

133. 



CALL 0$UJ9 

139. 


30 

CONTINUE 

135. 

c 



136. 


39 

irti¥C .CO. Ot 60 TO 99 

131. 



1F(Pt3D(NDAIA(lHCS«2) .NC. 01 CALL CRR(3H5rH> 

?30. 



00 90 l=l,Ni3,2 

139. 



IOC £ LHC ♦ I 

IBO. 



J r NOATAaOC) 

IBI. 



KA £ CATA(L0C»1 1 

ISZ. 



CALL OSun 

103. 


90 

CONflNUf 

189. 

C 



IB5. 


95 

6'VPRnC r VJV ♦ UVIN - WVOtfT - SunU'L 


min 

CABIN 
I CABIN 
I CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 
CABIN 

cabin 

CABIN 

CABIN 

CABIN 

CABIN 
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S. *¥PRnE * VvrRn£*Av*CTC-T2>/VC , . 

i«r. suwi » 6 . ’ • '* . f 

Ufl. KK V HEirUM>/)*Z • LM 

W* LL X 

W- IFUHTI ,^T, 0) CULL COMCM 

I’l. IFCLhF^ .CT, 0) CALL CONCM NL2,5 ,IHFP I 

1^2* IFiLNC .CT. e> CALL CODtCM MLS«2«L>tCI 

m. metlam 

IM, C 

H5- SUIftayTUE CONCK(M«flUF«,tNDI 

IH. 00 M |al,HN,NUR 

H2. J « MOATR( IKD^I I 

H8* Lt > LL « t 

ru| 3 EVTILL) 

109. LL « LL « t 

I0|« OMl z EITCLU 

201. FVPW 3 F¥ ' Fyl 

103- IF((PVPR^*E-Pwn/FVPy AT. 0.1 Dvt » 0Wt«PVPW/IP¥-fVPRRC1 

20R. KR 3 «K ♦ I 

103. |F<EmfURI*CW| AT. 6.01 OUl * *EITC«KI 

206 . ciran r ext<fx> ♦ owl 

201. 5UWWt 2 SuniTL ♦ owl 

200, 01 a CW|<P0L(LAFDAJ| JIVTINC 

200. OUl 3 0(J) « QL 

210. 00 CONfl«lUE 

111. OETURW 

tl2. t 

111. SUBROUTIWE ERRMtU^Bl 

21A. CALL TOPLIW 

i;o. wRiui6,ioQ) nvn 

116. 100 FORWATUHO mMH«>//iX*TNt *A3,« ARGUr«NT ly T^C CALL tSt% W NA 

21^* 2VE IHE CORRECT NUMBER OF VALUES. ClECUf lOm TERniMATEO Ul SUOROUTIIO 

tl«. XE CABtRV/tX l91UH»n 

21^. CALL WLXOCK 

220. CALL EXIT 

221 . C 

122. SUBROUTIf^E QSUN 

223. iFlEXPLCn DTAUUI a OTAUUl * MA 

22R. OUl 2 0U> * MA<(TC-T(in 

223. Ol a HAMTC-TUIWTIRC 

216. SUFIOL a SUFiOL ♦ Ol 

22T. ILAFI s POLfLAfiDA.TUn 

12«* rwl - PO*EXPtllAn/RV/(TO-TnMTtJl-TO>/<TU)-Tn*COHV> 

22f. LL a ii ♦ I 

no. EIT(IL) a PUI 

231. OUT s WA/CPC/PC*IPV*PUn*TlNC 

212. LL a Ll * t 

231. CITCLII a CUI 

llA. $U«UL = SUlWL ♦owl 

213. AETuRiy 

216. END 



, , CAoiy 
CABIN 
alCW cabin 

•»-l CABIN 

. CABIN 
CABIN 

cabin 

••-I CABIN 

cabin 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

cabin 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

cabin 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 

CABIN 
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«S5 wass wass WRSS W«SS CW«5S Wa$s CW*«SS C#^aSS 




SUIRJOTIIC CWftSSt I 

THIS SlRR^UTI^ HtDUCES THE COEFFICIENT HATfUl FOR FFCS 

eii^Nsioii ftui» lEBiu 


t. t 

10. C tOCRTE RCLATm PRESSURE NODE NUMBER (NPR> OF RCTL'Rt PRESSURE 

11. C «30C NUPBER IIPRJ WHICH HAS A SPEClflED PRESSURE I S^R ) 


n. a ua< It 

IN. DO 5 ICPR:1,H?RN 

IS. iniPR . 10 . UB<litPR»n> GO TO to 

U. 9 CORTINVE 

17. RETURN h 

IB. C 

IN, C CRLCUlME THE STARTING IDCRTION OF COLUflN NPR 
>0. C 

21. 10 IOC a INPR-IWNPR/2 

22. ID a IDC « NPR « NPR 

23 . C 

2N. C AODIFV THE RIGHT HAND SIDE / 

25. C 

26. 03 20 Jal.PlPRN 

27 . IFU-NPR) 12 . 20,15 

28. 12 BU) s B(J) • SPn*RUOC«^Jt 

IN. GO TO 20 

30 . 15 B(J-l) 7 BUI • SPR*AU 0 ) 

31. LD s ID « J 

32. 20 CONTINUE 

33. C 

3N. C CAICUIAIE THE STARTING LOCATION OF ROU NPR 

35. C 

36. to a LOC ♦ NPR 

37. NPA-r NPR 

3B. C 

3N. C OEICIE COLUWi NPR 

NO. C 

Nt. NPR r NPR ♦ 1 

N2. CO 30 J=NPR,r)PRN 

N3. DO 25 1=1,7 

NN. C 

N5. C DELETE R3W NPR 

N6. C 

N7. IFIL.EQ. NPJO CO TO 25 

N8. lOC = LDC ♦ 1 

N9. Allan = A(LO*il 

50. 25 CONTINUE 

51. 10 a 10 ♦ J 

52. 30 CONTINUE 

53. C 

5N. C DELETE ACTUAL PRESSURE NODE IPR fROn THE LIST OF ACTUAL PRESSURE NODES 

56. 03 NO J-NPa.ripRN 

57. L28U1 7 L26U^I » 

58 . AO CONTINUE 

5N. 128U > = 128< n - I 


CnPRSS 


CPiPRSS 

CHPRSS 

CHPRSS 

W«55 

CHPRSS 

c^nss 

Cf^PRSS 

CWRSS 

CWR5S 

CPPRSS 

CHPflSS 

CHPR5S 

CHPRSS 

CHPRSS 

CHPRSS 

CHPHSS 

CrPRSS 

Cr^RSS 

CHPflSS 

CHPR5S 

CnPRSS 

CWPflSS 

CPIPRSS 

CWPRSS 

CHPRSS 

CHPRS5 

CPIPRSS 

CPiPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPiPRSS 

CpPRSS 

CPIPRSS 

CPIPRSS 

CPiPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CPIPRSS 

CHPRSS 

CPIPRSS 

CPIPRSS 



II 

ia|g ' leTuAli ' f I -- >',l I r->. , rn.,1 f.i., ,t iWK$$ 

*1. IW w«ss 



NST 


C»XF«T 


CfcFfcST CNF*^f CWF<l$I CfcFUST CKFftST 


CMFUSr 


CNT#ST CHF*ST 


1. 

2 . 
J, 

«* 

I 

I. 

e, 

f, 

10 . 

n. 

12 . 

n. 

M. 

19 . 

u. 

17. 

Ifl. 

H. 

20 . 
2 t. 
22 . 
23. 
29 . 

25. 

26 . 
27. 
22 . 

29 . 

30. 

31. 

32. 

33. 
39. 

35. 

36. 
37- 
36 . 
39. 

90. 

91. 

92. 

93. 


95. 


97. 

96 . 

99- 

50. 

51. 
92 . 
53. 
59. 

55, 
96. 
57. 

56. 
59. 


&U690UTl*<E CMF9ST 

C 9kH EIPLICIT EZECUllOF^ SU6R317T1NE FOR SINDR F39|R*|| \ 

C 1« SHORT fStUOO CDHPUIE SEOUEhiCE IS REOflREO 
C ftOOES WITH CSC fiELPg 0T|P«EI RECEIVE SIEHOV STATE SJLUTIOJ^ 
C HO ORCKtNO UP IS DOHE OR ALLOWED 
IHClUCE COf^,L!ST 
IHCLL'CE CEFF.IIST 
inKOWSl.lE.O) K0V(5» 5 I 
IF(C0«( 8).LE.O, > tO^#l81 s l.E*B 
!flC09( 9).LE-0- 1 C0M91 = 1,0 
1FIC0R{ 18 J.LE.O, ) CO TO 999 
1F(C0M 19 ).IE.0. > C0»<n9) s l,E*B 
IFCCONi 2n.lE.O. ) CO TO 998 
IF(R3N< 3n.RE.01 GO TO 995 
PASS = -1.0 
UKZ - RNA^RND 
IE - WTH 
NLR : KDin 
NTH £ NTK^NNO 
NOIF) = KDin-NND 
IFlNOin.LT.O) GO TO 997 
9 tH : 

TPftiNT = CONHOl 

TSTEP s C0R(2l) ' 

5 T5U« 2 0,0 

IF(COR( m^COM IBl.GT.COM 311 CONI 161 : CON( 3)-tONm 1 
10 IF(TSrEP.GT.C0N<8>) TSTEP = COW 6 1 

IF(TSTEP.LT.C0W2m TSTEP = CONI 21 1*1 .000001 
iFnsi'w*TSTEP-coN( len 20 , 25,15 
15 TSIEP r CON( ie>-TSUn 
GO TO 25 

20 IR T5W2.0*TST£P.GT,CCW 10 11 TSTEP = 0.5*< COW I6 )-TSl<Hl 
25 COW 21 = TSIEP 

CONMl s TPRlNT*TSUin*TST€P 

C0NU91 s o. 5 *(cow I i*cowni) 

00 30 I = 1,NND 
0(11 - 0.0 
LE = 1E*I 
30 VUE) s 0.0 

IFINNA.IE.OI 60 TO 90 
DO 35 1 - NN.NNC 

on 1 :: 0.0 

35 CONTINUE 
90 tm 121-0 
CALL VAR6L1 

IRKOW m.NE.O) 60 TO 10 
IRPASS.GT.O. 1 GO TO 95 
PASS =1,0 
CONI 1 1 = TPRINT 

cow 2 > 2 0.0 

CALI OUTCAL ; 

CON( I 1 = TPRINT+TSTEP 
C0W2J r TSTEP 
95 J1 r 0 
J2 = I 

DO 85 I = 1,NN0 
IE = IE*I 
INCLUDE VARC.LIST 
INCLUDE vARO,ilSf 


CNFAST 

CNFAST 

CNFASf 

CNFAST 

CNFAST 

CNFAST 

CNFASf 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFASf 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFASf 

CNFAST 

CNFAST 

CNFAST 

CNFASf 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFAST 

CNFASf 
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' I < t - > 



1 ' I < t - > f ■ 

50 JI » JIM - * • > 1 M . : • 



{ r-' r 

W05T 

It. 

LC < F1D(5,16,NSQI< jm 



WIST 

17. 

‘ IFU^.EOiO) to 13 05 



e^FAST 

1). 

176 s FlP(22,t1,NS0lUt U 



CRFAST 

1^. 

UCU'DF VARC,LIST 



C0FAST 

15. 

IFtriD(1.l,NS0lUm,FQ.01 €0 ta 55 



CKFA5T 

II. 

Ti X miMto.o 



cnfast 

IT. 

T2 * TUTIJt^lO.O 



CNF05T 

II. 

tv 5 GlLtMC n»rUT 2 «T 2 >«(n* 77 l 



ClFASf 

11, 

CO fo 60 



CNFAST 

TO. 

95 CV £ CU6) 



CNFAST 

n. 

40 ODOT = Gv*tT<LTM-Hm 


♦NEW 

CNFASr 

T7. 

or M X QU > « Q03T 


•new 

crfast 

n. 

mn S KIFUGV 



cnfast 

II. 

lF<tTA.GT.^»dD,0n.FLO(2l,l,NSOl<jm.E0.1) 00 7} 61 



CMF6ST 

n. 

tCA X lEHTA 



CNFAST 

76. 

ifim s iaEA)«Gv 



WA5T 

77. 

orim S Q(LTA1 * QOOT 


•NtV 

CNFAST 

76, 

65 IFOfSOlUl 1.07.01 CO TO 50 


♦ •-1 

CNFAST 

71. 

05 



tUTFAST 

«o. 

C«n X l.f»0 



CHFA5T 

it. 

7CC« X 0.0 



CHFA5T 

07. 

DO 105 1 3 



CNFAST 

01. 

It z ttM 



cwfast 

01. 

Tl s CU)/H<tE1 



tUFAOT 

05. 

IFITl.tE.CFR) 60 TO 90 



CRFAST 

01. 

UW s Tl / 



EhFAST 

• T. 

K0^(15) X I 



CNFAST 

00. 

90 IFUSTCP.GT.TII 60 TO 95 



CliFASf 

01. 

Tl X Tm 6 TSTE?«o< n/ci n 


•HEH 

CNFASf 

10. 

60 TO 100 


•*-l 

CMFAST 

11. 

95 Tl X rm > Ti»om/cm 

• 

•mu 

CNFAST 

97. 

too T2 X Aas(n*rnn 



CNFA5T 

11. 

Tm X 11 



CNFAST 

91. 

IF<T2.L7.TCGFI) 60 TO 105 



CNFASr 

95. 

TCGn = T2 



CNFAST 

96. 

f0N< 15) s J 



CNFAST 

IF. 

105 ZdHUUMt 



CNFAST 

10. 

C0N< 15) = TCGn 



CNFAST 

91, 

CONI 1?) X CFrt 



CNFAST 

100. 

iFtCFn.tE.O. 1 60 TO 996 



CNFAST 

101. 

1F<6INA.LE.0) 60 TO 160 



CNFAST 

102. 

ill r F0N(5 1 



CNFAST 

101. 

DAfIPN X CONCD 



CNFAST 

101. 

OA^tPO X l.O-DflfnPh 



CNFAST 

105. 

DO 150 I X i,lA7 



CNFAST 

106. 

«31(20J X I 



CNFAST 

107, 

PIT X 0.0 



CNFAST 

108. 

JJI X JI 



CNFAST 

101. 

JJ2 = J2 



CNFAST 

110. 

DO 115 1 = WN,«VC 



CNFAST 

Ul. 

sene X 0.0 



CNFAST 

112. 

SunCi = 0.0 



CNFAST 

113. 

im.61.1 1 60 TO 6000 



CNFAST 

111. 

INCtUOt VR02,tlST 



CNFAST 

111. 

IIO JJI X JJl*| 



CNFAST 

ill. 

LG X FL0C5 J6,*lSa!( JJI >> 



CNFAST 

117. 

ITA X FL0(22.1N,MS0W JJm 



CNFAST 

lie. 

IF( 1 .GT.l > 60 TO 1000 



CNFAST 

111. 

INCluCf VR62,llSf 



CNFAST 

120. 

C rwECA FOR RAOIATION CONOUfTOR 



CNPAST 

121. 

IFtFLCl 3, l,«S0U JJni.EO.Ol GO TO 115 



CNFAST 

122. 

n 5 T<L)*H60.0 



CNFAST 
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u = TtiTJOMeo.o 

ev ^ eU61»(n*Tt«T2«TtU(Tl'»T2l ' ^ ' ^ ' ' 

€9 T9 IfO 
119 &V = €(LG) 

12 * 1UTA» 
no Suwc > SL*«C*GV 

5UfiC¥ = 5U»^CV*GV*T2 

C C»4ECK FOR LAST C0f«Dt'CT9R T9 THIS N90C 
|F(HS9UiJn.GT.0> G9 TO ItO 
Ti » dafpn»( 5Uf!Cv*oiin/sunc*OAnPO*TU) 

T2 = ABS(T(L Wn 
If(RLl.Gr.T2> 60 TO M3 
RL* = T2 
KG^itin S I 
lAO TIL) X Tl 
195 CWTINUE 

IFiRLT.LC.COkjtm) 60 TO 155 
!90 CONITIXL'C 
195 C0K(30) X nil 
160 call ¥Aft6L2 

CORK 13) s COMl) 

T$UP^ X TSU«*TST€P 
fSlCP X CAR 

IFnSinAT.COM Iflll CO TO 10 
TPftINT X IPRINT^TSUM 
CALL CUTCAL 

IFICOM n«I.OOOOOKlT.COM 3)> GO TO 9 

NTH s IE / 

NDin - NLA 
RETURN 

995 VR1TE(6,8B5I 
GO TO 1000 

996 uniTE 16,086) 

CO TO 1000 

99T WRITE(6,08T) NOIfl 
GO TO 1000 
990 6IR1TE (6,888) 

GO TO 1000 
999 WRITE! 6,889) 

1000 CALL OUTCAL 
call El it 

085 F0flnATM6M CNFAST REQUIRES SHORT PSEUOO-COUPUTE SEQUENCE) 
0S6 FlRrtAUZZH C/$l ZERO OR NEGATIVE) 

0B7 FORnATne,ZOH LOCATIONS AVAILABLE) 

188 FOflnATtlOH NO OfinCL) 

889 FOflnATmH NO OUTPUT INTERVAL) 

CNO 


CNFAST 
CNF AST 
CNFAST 
CNF AST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFASr 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 
CNFAST 



SZ'V 


llitlN CSr>tlN e^nilN ' CQ^BIN COnBIN’ tantlN COniSN tONUN COMBIN 

' 1 I (■/ ; , . r 1 • I t « > , 


CCRB|K{||TAI'C, KT, \St, lUNtTI 

*. C 

3. ^ BJf^EKSUN N«UFR*?T», *lfKA(l5>, i%1kHUU, IST3#(7) 

9. connQN omui 

«< c 

WR Rif hr 

», I IKL.lHJn/ 

». c 

IB, C 

n. VHITEU,)) 

II. y FORfiAinHUonOHauTPUT fro« sub«uhne//i 

II* irtruNiT .CO. 01 iunit = t 

lA. REUtAiD KT 

». |F<I*TRPE.6T.0I fiO TO r 

U. NT«P£ 7 '^yTAPC 

IF. REA0t5,AI (ISTARTM »,«STOF< n,l-|,«lTAPCI 

10. * F0RnATURF5.1) 

IF. t IUMU = IUMT-l 

«. 00 yy L=I,NTAP£ 

71* pi-0 

77. lt:0 

13. I:^l4U'N{TI 

in. niuinD I 

75. \$ nmiy {nbufrc hsl, (ortm 

16, NBUFfllJT) s ^SL 

»T. ifa-n,i5 

76. f R£AD< I }nf^E,(DATA(K ),K=l,IUTOrRL I 

77. !F<Tirie-i5TflaTan7 

30. IFniHE-XTlnCJ.M^JO 

31. fcnUTE(6J7) 

37. 12 FOflinAK |H010I3*IHTAP£S ARC «JOT \t4 ThC CORRECT ORDER) 

33, CALI mi 

3R. WRITtnin NBIFR, (OATft( J»,Jsl,WSL> 

15, RTOTAL = 0 

36, 00 SO J51T,2T 

IT. 18 I^TOTALiNTOTAL♦^BUFR< J> 

30. 21 RERDM )UmEJOATAClO,«rl,}ylOTAL) 

35. IFCTirnji* 

RO. IF(TIPE'XSTART(L))2l 

Rl. IF(XSI0P(l>>27,77 

R2* IF(Tir^E*X5TCP{L)>7r 

R3. T|flE = -TrPiE 

RR. 2R IFU-IVTAPE 131,30,33 

55. 2T 

R6, IF<MJ,,7l 

R7. rjrjMC 

R«. iTlrErTIP^E 

55. 30 HfiIT£(Kn TlnE,(OATA(lO,« = |,HjTOrALJ 

50. IF4N.E0.0t L^Rtre<6,3n TIP>E,1 

51. SI F0RmATri3I F10.5, 76H HAS BEEN iOADEO FROn TAPE 12) 

57. Nr| 

53. irairn, 21,21 

55. END FItF AT 

55. AfWMVO AT 

56, 31 REWIND I 

5T, A)RI T£{ 6,36 H.TTinE 

50. 56 FORrATdll 5HTAPE 12, lOK CNOINS AT F»0.5, 

59. I ON NEW TAPE/) 


20M HAS BEEN LOADED 


COHBIN * COnBIN 

f 


COnBIN 
COnsiN 
♦NEW COnBIN 

•NEW COnBIN 

•NEW COnBIN 

•NEW COnBIN 

*•“1 COnBIN 

COnBIN 
•NTW COnBIN 

9N£y COnBIN 

COnBIN 
COnBIN 
cons IN 
COnsiN 
COnBIN 
COnBIN 
COnBIN 
COnBIN 
COneiN 
COnBIN 
COnBIN 
COnBIN 
COnBIN 
COnBIN 
•NEW COnBIN 

•NCy COnBIN 

•♦“I COnBIN 

COnaiN 
COnBIN 
ConaiN 
COnBIN 
COnBIN 
COnBIN 
«NEW COnBIN 

♦♦“I COnBIN 

COnBIN 
COnBIN 
COnBIN 
COnetN 
COnaiN 
COnBIN 
COnBIN 
COnBlN 
COnaiN 
conaiN 

COMB IN 
COnBIN 
COnBIN 
COnBIN 
COnBIN 
COnBIN 
COnaiN 
COnBIN 
cone IN 
cone IN 
COnBIN 
COnBIN 
COnBIN 
COnBIN 
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iz. 

4^. 


34 . I r M r ^ I I 

I^(K.IE.15 )wniTe<S.42mT6Pe^6LPHA(KT> 

62 r06>'6T< //10X9 mD«T 6 FRJn I2,33M lAPES HAS 6EE»I C2^BtNE0 ON l»NfT 62l 
RETURN 
W 


cansiN 

CORBIN 

CORBIN 

CORBIN 

CORBIN 
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* 1 
t 

3 
n 
5 

4 
I 
t 

10 

tl 

12 

13 

19 

U 

I? 

IS 

19 

20 
It 
22 
21 
U 
29 
24 
2 ^ 
29 
29 
10 
It 
12 
3 ) 
39 
39 
34 
3T 
IS 
39 
90 


SUS93UTI9E C:)9Dn<NL0C) 

€ 

OlfEWSION MOCm 
COfViDll /SOflAY / KD9T4( I) 

c 

mr\? 2 T ID 
MVOK /C09D 2 G ID 
C0W09 /rncoN/ conid 
CO nnOK 20 If»ENS2 UNT, N6T 

c 

|FI^<3DlNli}aD,9 t ,C0. 0) CO to 20 
CAU tjplin 
4mireu,tot Moci D 

10 FOflf^fttDeMO* • • INCORRECT NUMBER OF Ct.€P»ENTS INPUT TO CONOTl FOR 
1 CONOL-CIION DATA, !C = 19, TH • • *1 
CAU WlKSCf 
CAU TUT 
t 

20 It * RLOCin 
DO 100 |slJC,9 
NG a nlOCM^D 
KLT sR 10C<|42T 
UTint S NLOCI t«3t 
HTCnP = M0CM*9I 
IF(NG .CT. NGT) GO TO 90 
in Nit AE. NNT) GO TO SO 

90 call toplin 

imnc<6,40) INLOCI 9) 

40 FORnATDSKO* * v ERROR IN CONDUCTION DATS INPUT TO CONOTI * «,« 

1 // 5H0NG a 19, 4H NLT £ 15, BH ATirE £ U, SH ATEpP r 14) 

CALL M.KBCK 
CALI EXIT 

t 

SO CAU 01DEG!(C0N( D,NDAYA(NTl«E>,FTir'£> 

CAU OlDE:GHT(NLT),NDATA(NTEnPt,FTEr.P > 

GING) = FTIP1E*FTE#1P 
100 CONTINUE 
C 

RETURN 

END 


CONp.Tl 


coNon 


CONOTI 

CONOTI 

CONOTI 

CONOTI 

CONCH 

CONOTI 

CONOTI 

CONOTI 

CONOTI 

CONOTI 

CONOTI 

CONOTI 

coNon 

CONOTI 
CONOTI 
CONOTI 
CONDI I 
CONDfl 
CONOTI 
CONDfl 
CONOTI 
CO«r»Tl 
tONon 
CONOTI 
CONOTI 
CONOTI 
CONOTI 
CONOTI 
CONOTI 
CONOTI 
CONOTI 
CONOTI 
CONOTI 

coNon 

CONOTI 

CONOTI 

CONOTI 

CONOTI 

CONOTI 

CONOn 
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C?«CT2 CWDT2. COKOR Ca^DT2. C0MM2, C0NO12, tOlfO It, Ca^Olt, C0l«DT2, 


1. > 


SVBBOUIIWC C0W0T2<N10CI 

t- 

C 


3. 


Oir^NSlON N10C< 1 ) 



tort^n /nRRAy / noAttiti 


C 




cowow /COWD / 6 m 

?. 


C0W09 /OinCNS/ KWO, kHIk, I^NT, U6? 

I. 

c 




fQUiVBLEWCC IKTEnP^rTEn?) 

to. 

c 


11. 

c 


It. 


IF(MD(NLOC( n.n .M. 01 60 TO 20 

n. 


CALI TOPLilt 

1^. 


WR|TC(6 JO) MLOC< 1 1 

19. 


10 F0RrAT(76HQ. • • |WCO«fl£CT NvnCR OF CltwEWTS WOT 10 C0W0T2 

U. 


1 COWCtCTlOW DATA, IC a M, 7H • • •> 

It. 


call fcliBCl 

IB. 


call CUT 

K. 

c 


20. 


20 IC 2 hiOt( n 

21. 


00 too 1=1, IC, 3 

22. 


nz s alocm^ii 

23. 


BITIRE r AlOCa«2) 

in. 


ATEnP s NL0C(|43) t 

29. 


1F(AG .LE. AGT) GO TO 80 

2B. 


CALL TOPLIN 

2». 


AR|TE(6,60) (N10C( I«J),J = I,3> 

2B. 


80 F0RMAT(55H0* * * ERROR Ik COWUCTIOW DATA lAPCT 10 C0W0T2 • < 

29. 


t // 5M0WG = I9, 8H ATIPIE = U, 0M FT€f>P s Gl3,t» 

30. 


CALL ALKBCK 

3t. 


CALL EXIT 

32. 

c 


33. 


80 CALL DIOEGKCOWC n,ADATA<WTt<nE),FTl7iE} 

39. 


€(NG> = FnnE*FTErP 

39. 


100 CONTINUE 

36. 

c 


31. 


RETURN 

38. 


END 


COWTZ. 

COKOTt 

COW? 

CO«<OTt 

C0K0T2 

ta^OTt 

COUOTt 

Cd^lDTt 

C0«^DT2 

C0<«tiT2 

C0NOT2 

COMDT2 

coNort 

CDNOTt 
CONDTt 
CdNDTt 
CQNOT? 
CONDT2 
CaNOIt 
CONOft 
CONOT2 
CONDTt 
C0IV0T2 
C0NDI2 
C0NDT2 
COl^OTt 
CONDT2 
C0N0T2 
COWOT 2 
COWOT2 
COWOT2 
CONOT2 
C0NDT2 
C0N0T2 
C0N0T2 
tOWOT2 
CONDT2 
C0NOT2 
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$UBR3UT|NE CONVlULdC,«LOC>LOO * ‘ “ 

I- C 

3^ tOGlCRL UP, IP»U, ITC 

R. C 

f- OlfiEXSUN LIOCM I, FtlOCU), NlOC( U 

i. DInEWStDN fiORTA( I » 

T. C 

CQnfnON /ARRfeV/ MOATA(l) 
n£rp / T <l> 

CO^nON /ca^0 / 6 CD 

u. COwON /OlrE^iS/ hUQ, KfiH. HHl , NGT 

u. c 

13. tOUlV^lCNCE (RORTR,NORTR> 

1^* MUIVPLENCE (KRHT,AHT), 0^1,11, INFI,fn, <lfF?,P2> 

15, C 

16, CATA PiAXl /65000/ 

17, C 

16. C 

1’- IF<tt3C(l) .EG. 8) G3 TG 20 

CAU TOPLIN 

*1* WUTfl6,10) UOCU) 

22, 10 FaRflATdlMO* • • INCORRECT NUnOER OF ElEP'EMTS INPUT TO CONVl FOR 

23. IFUU DATA, IC - 15, 7H • # 

2A. CAU WlA&CiC 

25. CALL EIIT 

26. C 

27. 20 12 2U0C(2» 

28. L7 s LLOC(T) 

28. C 

38, lf(N0ATAU2> ,6T, 0) GO TO AO 

31, CALL TOPLIN 

32. WRITEUplO) N0ATAU2) 

53- 30 FOHMAT(T2kO* ♦ • INCORRECT NUfiGER Of ElEPiENTS INPUT TO CONVI FOR 

за. mow RATES, IC * 15, 7H • » 

35. GO TO 60 

зб. C 

37, AO IF<PiOt)lNOATA(Ln,6) .EO, 01 €0 TO 75 

36. CALL TOPUN 

38, WnfT€(6,50> NDATA(Ln 

80. 50 FORnATI T7H0* • • INCORRECT NUP^BER OF ELEMENTS INPUT TO CONVl FOR 

81. IFIUIO TVPE OATA, IC r |5, 7H • • 

82. 60 WRITE(6,T0 ) (fiLOn n.I = 2,7l 

A3. TO FORHATtSHOAl/ = 16, 6H APR r |6, 6H AGF = |6, 6M AVP s 16. 

8A. I TM AIFfl s 16, 6H AFT r 16 ) 

85. CALL L1T0CA 

86. call ETIT 

AT. C 

88. 75 IFtP'lOrin ,E 0 . 5) GO TO 80 

88, CAU TOplIN 

50. WR1TE(6,76 > piLOCI n 

31. T6 FORnATITBHO* • ♦ INCORRECT Nt'fiBER OF ElEPiENT3 INPUT FJ CONVl FOR 

52. IFLUIO properties, IC = 15, 7M » • #T 

53. call k'LKBCA 

5A. CALL EKIT 

55. C 

56, 80 NX = nOC<2> 

5T. IffNZ .LT. I .on, NX .GT. fiAllJ 60 TO 82 

59. ICP = .TRUE. 

58. NCP s NX 


I ..WNVi 

I ’ i 


CONVI 

CONVl 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

coNn 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

CONVI 

tONVl 

CONVI 
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tz. 

SI, 

s^. 

ss. 

ST« 

S8, 

S^. 

TO. 

Tl. 

T2. 

n. 

1%. 

X5. 

TS. 

TT, 
70. 
IT. 
00 . 
01, 
02, 
• 3. 
0T. 

05. 

06. 
IT. 
0B. 
0T. 

10. 

11. 

12. 

13. 

11 . 

15. 

16. 
II. 
10 . 
19. 

100 . 

101 . 

102. 

toi. 

101 . 

105, 

106. 
101 . 
108. 

109. 

110 . 
lit. 
112. 
m. 
111. 
115. 
lU. 
111 . 
118 . 
m. 
120 . 
121 . 
III. 


63 TO 01 , i , . , , 


CONVl 

02 LCf s .F0L5C. , 


CONVl 

CP » 1 . 


CONVl 

01 01 = rtoci 11 . w , • V 


CONVl 

IFCNl .IT, 1 .OR. NX .6T. nsxi» 63 TO 06 


CONVl 

in\J a .TRUE, 


CONVl 

%m) a NX 


CONVl 

63 TO 80 


CONVl 

06 IfiL’ - .FALSE. 


CONVl 

Ifiy r 1 


CONVl 

06 NX a F^L3C(5> 


CONVl 

IFtaiX ,LT. 1 .3R. NX .6T. NSXl) 63 T3 12 


CONVl 

LTC = -TRUE. 


CONVl 

NTC £ NX 


CONVl 

60 TO 91 


CONVl 

12 ETC = .FALSE. 


CONVl 

TC = X 


CONVl 

C 


CONVl 

11 1F(HD0(NLacm,6) .EO. 01 60 TO 100 


CONVl 

CALL TOPHI 


CONVl 

k’RlT£*fc,95 1 NLOCm 


CONVl 

15 FOAnAKITPO* » • INCORRECT NUMBER OF ELEMENVS INPUT TO C3NV1 FOR 


CONVl 

ICONVECTION DATA, '4C ^ 15, 7H • • *1 


CONVl 

CALL WIKBCX 


CONVl 

CALI EXIT 


CONVl 

C 


CONVl 

100 1C : NLOC( 1 1 


CONVl 

00 220 |-1,1C,8 ^ 


CONVl 

NG 3 NLOCn^ll 


CONVl 

NAHT » NL0C<1«2) 


CONVl 

ITIBE = NLOCaOl 


CONVl 

NFL 3 NL0CIN11 


CONVl 

ITTPE 3 NlOCU+5 1 


CONVl 

NX 3 NL0Cai61 


CONVl 

NFl s NLOCdtII 


CONVl 

NF2 = NlOCtl+81 


CONVl 

LT7PE s 1TYPE*6 - 5 


CONVl 

IF(NG ,6T. NGT) GO TO IIO 


CONVl 

IF1NFL .CT. NNT) GO TO 110 


CONVl 

!fllTU0E .GT. NDATA<L2n GO TO 110 


CONVl 

IFUTYPE ,IT. NDATA<LT)1 GO TO ITO 


CONVl 

no CAU TOPLIN 


CONVl 

6miTE(6,t20> 


CONVl 

120 fO«MAT(5iHO* ♦ • ERROR IN CONVECTION DATA INPUT TO CONVl • ♦ 


CONVl 

150 LTUTE(6,U0I ( NLOC( 1 >, Jt | ^ 8 > 


CONVl 

160 FOAnATlSHCNG = 11, 6H AHT r 613.8, 0H ITUBE s I", 6M NFl « 15, 


CONVl 

1 EH ITVPE 3 11, 1M X = G13,0, 5H FI a G13.6, 5H F2 s GI1.0> 


CONVl 

CAU WLX6CF 


CONVl 

CALL cm 


CONVl 

c 


CONVl 

170 LTVPE = II ♦ LTTPE 


CONVl 

V? = nDATA{LTVP£l 


CONVl 

CSA 3 RCAlAILTyPEdl 


CONVl 

IF(tCP} CAU DlDffiir TINFL I,N0ATA(NCP1, CPI 


CONVl 

IFIIMU) CALI DICFGUKNFL ),NCPTAtNf1U),xru) 


CONVl 

IF(IIC) CAU OlOEGU UNfL l,NOATA( NTC), TCI 


CONVl 

RE 3 l,0»A3S(R0ATAtL2»ITUBEn/l(nU/U'P 

•NfW 

CONVl 

PR s ¥MiL'*CP/TC 

• •-1 

CONVl 

D s 1.0*CiA/wP 


CONVl 

|F(RE .CT, 2000.01 GO TO T60 


CONVl 

TEnP = l/C/Rf/PR 


CONVl 

M 3 TC^O»( 3,66*FI ♦( 0.0155*F?^I TEMP 0 . 0 IS-CBRU T^PP ) I M 


CONVl 

GO TO 200 


CONVl 





r r } 


r 




l 


f 



nn. 

115. 


^ lU. 
, Ut, 
120, 
12^, 
no, 
nu 




leo IFlftr AT. 6^09.01 CO TO 190 

It c o.on«rc/o*Hc«>,0«c»AnpRi 

■ 60 TO 200 

190 H £ OAU«TCyD*tC0HT(RE*RE 1-125. OWCBRTtPM 
200 C(ftC) = H«RHT 
«0 CONTItiVE 

RETURU 

END 


f , ■*' j • 

CONTI 
CONTI 
CONVI 
r . CONV! 
CONVI 
CONVt 
CONVI 
CONVt 
CONVI 


:> 


I 

CO 
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CSMV2 . Z2HMt CCNV2 CQNV2 C3KV2 tOn^Z tWM2 tOi«v2 


SU«ft3uTlN€ C0«tV2(UaC»PttDC^NL0Cl> 
lOGICAt ICP. IW. ITC 

flip^ensiON uom^ necni. Kiocn> 

Ol^MSrDM RQI^fAm 

C0w^«l /HAftHV/ NOATMtl 
tOr^OH /TEPSP / T in 

corv^oxf /coNo / 6 in 

COwiO*i /Dli^ENi/ HKH, WHiT, NGT 

EQUlVAlENCr IRDATA.IIDATA) 
fQUiVAlENCe INAHT,*Hr>, 

DATA PAXI /650aa/ 


IFluaCI 1 ) .EQ. «) GO to 20 
CALL TOPL1PI 
vRiu(«,m LLOcm 

10 FORP^ATC MHO« « • INCORRCCT MUn&ER OF CLEnFNTS IHPUT TO C0NV2 FOR 
iflou CATA^ 1C s H, ?h • • 

CAU ilKBCK ^ 

CALI EXIT 

to L2 s ILOCm 
L7 = ILOCn) 

IFIMOATAUtl .GT. 01 GO TO AO 
call TOPLIN 
WRITEU^TOI PtDATAdtl 

30 F0RnAT(T2H0* * • fNCORRECT AunBER OF ELCflEATS INPUT TO C0NV2 FOR 
IFLOU RATES, IC « 15, FH » • 

GO TO 60 

AO IF(FI0DIN0ATA(L7)«6) .EO. 0) GO TO 75 
CALL TOPtlN 
WfllTE(6,50> NDATACL7> 

50 FORinATC F7M0* • • INCORRECT NunRER OF ELEnCNTS INPUT TO C0NV2 FOR 
IFLUIO TYPE DATA, IC = 15, 7H * • •) 

60 wfliTEr6,70) irioci n,i? 2 ,n 

70 F0RPlATr5H0AW = 16, 6K APR s |6, 6H AGF = |6, 6M AvP = 16, 

1 7H AIFR s 16, 6M AFT = 161 
CALL M.KBCK 

call exit 

T5 IFIPILOCI n .EQ. 5 1 GO TO 60 
CALL TOPLIN 
uniTE(6,F6) nioci I > 

76 FOnnAT(76HO» • • INCORRECT NUPBEfl OF ELEP^ENfS INPUT TO C0NV2 FOR 
IfLUlO PROPERTIES, IC = 15, 7H ♦ ♦ 

CALL i'LXBCA 

call exit 


00 NX = PLOCm 

IF(NI .IT, J .OR, NX .GT. fiAXI) GO TO B2 
I CP = ,!«l'E. 

NCP ' NX 


CCNfl i 

I ? 


C0NV2 

C0NV2 

C0:«V2 

C0NF2 

C0NV2 

C3NV2 

C0NT2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

CONVZ 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NT2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

tONVZ 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

C0NV2 

tONVZ 

C0NV2 

fONV? 

C0NV2 

C0NV2 
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II 

BO TO 84 

f 



02 LCP E .false. 


C0NV2 


C0 s 1 


C0NV2 


04 Kl S P(L0C<4) 


C0NV2 


1F1NI .LT. 1 .OR. W .€T. RAIII BO TO 06 


C0NV2 

hi. 

imj » .trl'E. 


C0NV2 

(A. 

KW = RI 


C0NV2 

AT, 

60 TO 80 


C0NV2 

18. 

16 IRU « .F0L56. 


C0NV2 

11. 

IFU 5 1 


C0NV2 

TO. 

00 Nl X PH.OCm 


C0NV2 

Tl, 

IMRI .LT. 1 .OR. Ill ,6T. Min 60 TO 12 


C0NV2 

T2. 

LTC = .TRUE, 


C0NV2 

n. 

MTC = Rl 


C0NV2 

T1, 

60 TO m 


C0NV2 

n. 

12 LTC s ,MLSC. 


CQNV2 

n. 

TC X 1 


C0NV2 

TT. 

C 


C0NV2 

T8. 

14 IFlKOOlIVlOCf 11,6) .CO. 0> 60 TO 100 


C9NV2 

T1, 

CALL TOPUR 


C0NV2 

80. 

WfllT€i6,l5) NlOCMl 


C0NV2 

01. 

15 FORMTHThO* « 4 I4C0RRECT NUnBCR OF CtCnEinTS INPUT TO C0RV2 FOR 


C0NV2 

12. 

ICONVECTION BATA, 1C » 15, TH • • *1 


C0NV2 

IJ. 

c«u yitizt. 


C0NV2 

01. 

CALL fllT 


C0NV2 

01. 

c 


C0NV2 

06. 

100 rc X Mocni 


C0NV2 

0T, 

DO 220 1=1, 1C, 6 


C0NV2 

08. 

06 xRLOCmtl 


C0NV2 

01. 

NAHT sNlOCM*21 


C0NV2 

10. 

ITU8E = NIOCUOI 


C0NV2 

11. 

0FL xKLOCimi 


C5NV2 

12. 

nVPE = NL0CU*5 1 


C0NV2 

11. 

NHSr X NL0C<I*6I 


C0NV2 

11. 

LTVPE X lTyPE»6 - 5 


C0NV2 

15. 

iriNB .GT. N6T1 60 TO 110 


C0NV2 

16. 

IFINFL .GT. NNT1 GO 10 110 


C0NV2 

11. 

IFUTUBE .61. NDATAa2>> GO TO 110 


C0NV2 

18. 

IFilTfPE .LT. NDATAlim GO TO 170 


C0NV2 

11. 

no CALL tOPLIN 


C0NV2 

too. 

kRiT€(6,120) 


C0NV2 

toi. 

120 FORffAUSHHO* • « ERROR IN CONVECTION DATA INPUT TO C0NV2 * « *1 


C0NV2 

102. 

150 WRlTE(6,t60> (NLDCI 1 J~ 1 ,6 > 


C0NV2 

10]. 

160 FORnAKSHONG * 14, 6M AMT = 613.0, 0M |TU0t x M, 6H NFL c |5, 


C0NV2 

104. 

1 0H ITYPE X 14, TM AH5T x 161 


C0NV2 

105. 

CALL VLA0CA 


C0NV2 

106. 

CALL EI[T 


C0NV2 

lOT. 

c 


C0NV2 

109. 

no ITYPE X LT ♦ LTYPE 


. C0NV2 

101. 

UP = nOArA(LTYPE) 


C0NV2 

110. 

C5A s RDATAILTYPEM ) 


C0NV2 

111. 

imCPI call OlDEGHT<NFL1,NOATArNCP1, CP > 

^ • 

C0NV2 

112. 

IF(LP>1‘1 CALL OIDEGK T(NFL 1,NDATPtN''<U),*P'LM 


C0NV2 

1U. 

IFUTCl CALL OIDEGK T(NFl ),NOATAtNTC>, TC 1 


C0NV2 

Ml. 

RC X 4.0»A&SCRDATA<t2»ITl'BE n/Xmu/WP 

•NEW 

C0NV2 

115. 

PR 2 inu*CP/TC 

• xx-t 

C0NV2 

116. 

D X 4.D*CSA/WP 


C0NV2 

117. 

CALL PlDECl(fie,NDATA<NH5T >,Sn 


C0NV2 

tie. 

H X TC/0*REfCPflHPft1#ST 


C0NV2 

111. 

200 GING1 X H«AHT 


C0NV2 

120. 

229 CONTIm'E 


C0NV2 

121. 

C 


C0NV2 

122. 

PEIURN 
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1. 

>. 

9 . 

4 . 

f, 

9 , 

9 . 

10 . 

11 . 

U. 

11 . 

19 . 

15 , 

U. 

IT, 

14. 

If. 

29, 

It. 

II. 

II, 

19 . 

25. 

14. 
II. 

15. 
If, 
10 . 
It, 
II. 
31. 
39. 

35, 
34. 
IT. 

36. 
If. 

90 . 

91, 
91 . 
91 . 
99 , 
95. 
94, 

9f. 

98 . 

9f. 

50. 

51 . 
51 . 
51 . 
59 . 

55. 
54. 
5T. 

56. 
59 . 


C?NV3 ‘ tmvi C09V1 CONVl CW¥l CDUfl C9NV1 C09V1 

r I i I 


* '< A . . 1 I , , ^ 

SueSlUT|9E C09fl(hlOC,NLOC> 

c 

Dtr^rNSioH p^,ac^^9l^c(tt 
OIr^E9510N RDSTSCn 

c 

C0wi3«i mftsy/ IkDATMl) 
tdtv^H /TtrtP / ! ( I > 

COnnON /CUND / G m 

COftPlN /DI^ENS/ mo, W9T, RfiT 

c 

EQUIVALENCE UOATS.NDATSl 
tOUlVALENCE (NAHT^AMf ) 

c 

DATS Mil /45000/ 

C 

e 

IRfiLOCl 1 I .EO. 4 1 GO TO 20 
C4LL TaPLIll 

iFULOCm .EQ. M GO TO 10 

10 rORHAKTlMO* « f INCORRECT NUMBER OF ELEWEIITS INPUT TO CCNVl FOR 
IFLOu 09TA« IC s 15, Th « « «| 

CALL 41KB CM 
CALI EIIT 
C 

10 II s noc< 1 ) 

IT i Alocm 

c 

IF(NDATA(m ,6T. 0) CO TO 60 
CAU TOPLIN 
kmiTn4,io> NOATAim 

10 FORnAT(72HO« » • INCORRECT NUnBER OF ElET^ENTS INPUT TO CONVl FOR 
IFIOW RATES, IC 2 15, TH • • 

40 Ufl|T£(4,70) <flLOC( n,l=2,Tl 

10 F0RRAT15H0Ay s 14^ 4H APR 2 14, 4H A6F • 14, 4 M AVP = 16, 

1 7H AIFR 7 14, 4H AFT 2 U > 

CAU klfBCK 
CALL EXIT 
C 
C 

90 IF<H3D(NL0CM ),9 ) .EO. 0) GO TO |00 
CALL TOPlIN 
WR|T£(t,90> NLOCI 1 1 

♦0 F0ftr,An77H3* ♦ • INCORRECT NUMER OF ELEMENTS INPUT TO CONVl FOR 
ICONVCniON DATA, IC r 15, TH • » 

CALL NLKBCIC 

call exit 

c 

100 IC 2 NLOct n 
DO 110 1=1, IC, 9 
«G 2 NLOCdtn 
NAmT 2 NLOCfl*!} 

ITUBE = NLOCn*!) 

NMW = NL0CU*9 1 

IF(NG .GT, NGn GO TO ttO 
IFUfUBE .IE. NDATATlin CO TO ITO 
110 CALL TOPLIN 

k-Rirn4,i?oi iNton i*j 

120 F0RrAT(S<<H3# • » IN CONVECTION DATA INPl*' TO C0NV3 • t • 

I ff 5h:nG = 1%, 4N AMT r G13.8, 6H HuBE = I**, 6H AHU 2 15) 


C0NV3 CQNVl 


' CONYl 
CONVl 
tONVl 
CON VI 
CONVl 
C0NV3 
C0NV3 
C0NV3 
CONVl 
C0NV3 
CONvl 
C0NV3 
CONVl 
C0NV3 
C0NV3 
C0NV3 
tONVl 
CONVl 

*NCU CONVl 

••-1 CONVl 

CONVl 
CONVl 
CONVl 
CONVl 
CONVl 
C0NV3 
CONVl 
CONVl 
CONVl 
CONVl 
CON VI 
CONVl 
roNvi 
CONVl 
CONVl 
CONVl 
CONVl 
C0NV3 
C0NV3 
C0NV3 
CONvl 
C0NV3 
tONVl 
C0NV3 
C0NV3 
C0NV3 
C0NV3 
C0NV3 
C0NV3 
CONVl 
C0NV3 
CONVl 
C0NV3 
CONVl 
C0NV3 
C0NV3 
CONvl 
CONVl 
C0NV3 
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I 

"“%0. CALL VinZ€ 

*1. call' riiT I » i M - ♦ 

*2. t 

13. tTQ call 0tDrGI(ADATAU2»ITUftEl,NDATA(NHh#I.M) 

100 = M*AHf 

(3. 120 CONTINUE 

C 

47. netuah 

43. END 


cmi 
n '>-1 C0HV3 
C 0 KV 3 
C0HV3 

caiuvs 

C0l^¥3 

C 0 MV 3 

C 0 MV 3 

C9NV3 
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BAL riOML' fLOBALi. FlOBAL' fLOBAl " FlOBAL FlOm FLOBH FLOBAL 


^ FL0BH<^P«N,LM >*:?!, KIPI^UPO.FROF^CWI I 

5- LOGICAL L%P. Lirn, LAR, LDP, C3P 

LQOtCAL IPR 

B. C 

4, ^ OlnCNS!0N RDATAU), FIT(I) 

COWON MRRfly / NDATHm 

COWON /FDATA / 12 , O, lr, 15, LB, L?, 18, Lf 

10. COWON /FDAIA / LVP, LIFR, LAfl, LtP 

IJ* COWQN /FDATR / COP, LflO, N«0, RO, Lf.U, Nru, in-,’, 6C2 

jj' ^ COWON /XSPACF/ NOin, NtH, NEUT(U 

*4. COUIVALCnCE (RDATR,NDf TA <EXT,NEXri 

15 . C 

U. C 

120:NDATA(LH)0 
14- L22 ' NDATA(U4|«2) 

15. m s N0ATA(LIN*1) 

fO. L2S s NTH ♦ 1 

51 . C 

tl, t 

IFU23 .LT. n €0 TO B02 , 

^4. L40 r NDATA<L23} 

>5' IFURO .LT, n GO TO 402 

:4. C 

IFTLVPJ GO TO 530 

8 , 910 NRITEU,520» N0ATA(L9>, NOATAtUNM) 

11. 520 F0RPiAT(T8H0* • • INCORRECT NUMBER OF ELCPENTS INPUT TO FLOBAt FOR 

?' = 15 * ?H • • » If 8 X I 2 HF 3 R NETWORK N 6 1 

' * • CALL WLKBCF 

CALL tllT 

3. C 

5. 930 00 400 J=l,lNO 

5. L91-NDATA<L21«J> 

4’ NV - NOATACLNUn 

NTSI e NDATA(LN1*2) 

4« NT52 2 N0AIA[LRI«3) 

5 . E 3 R 0 ATA(LRI*M 

0 ‘ IFCNV ,GT. NDRTAU 5 )I go to 910 

1. XSl 2 R0ATA<L5*NV> 

*• IF*. NOT. COP* CO TO 9R0 

). RVSI 2 0.0 

RFS2 = 0.0 

5 . 940 lf(NT 5 l .IT. II GO TO $B 0 

** IF(NT 5 I ,Cr. NDATAfL 2 n GO TO 590 

RVSI 2 RDATA( 12 ^NTS 1 )«E/T5l/VSl 
\' RCATA(L^*NTSI I 5 l.o/c I .O/flCATAd^j^NTSn^RvJT I 

>. 940 1FCNT5Z .If, I I CO TO 570 

IF(NT52 .GT. NDATA(i2n GO TO 590 
i. TS2 2 1.0 - IS! 

^ RVS2 r RCATA(i2«NTSZ>«E/iS2/IS2 

I' ^ RDATA( I <i*NTS 2 I r 1 .0/n .0/RCATAU««NTS2 )«Rv52 I 

970 |F( .not, COPI go TO 60Q 
CALL llNECKt Jl 

NR|TE(B,585» 49, F, K^l, NTSi, R9SI. NTS2, Rv:2 
'. 980 FOArAT*/ Tl ThNv ;; ||0 ,81 T*.r ^ 

. I 5lt THIS! r GI 3 . 8 , 57 7HNTi| = I |0 ^ 01 ; G 13 . 8 / 


flobaJl^^'I FLOBAL 


•NEW FLCBAL 

••“I FLOBAL 

FLOBAL 

•NtW FLOBAL 

FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 

fldbal 

••-I FLOBAL 

FLOBAL 
FLOBAL 

••-I FLOBAL 

FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FlOBAi 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAI 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 

FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FtOBAl 
FLOBAI 
Fl OBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAL 
FLOBAI 
FLOBAI 
FLOBAI 
FLOBAL 
FLOBAL 
FlOflAL 
FLOBAL 
FLOBAL 
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* T* THNTSt 


no 


«l rHRVS2 > G13.0 I 



03. %H<i b-nUC<&p)^5) NDOT«Ul^«l>« MV, MTSI, ITTS7 

0^. ^aAfiATC^THO* • • ERROR IN VALVE DATA |KPl<T TO HODAt EOR hCTwORK 

A). 1 TH • • « // ex AHNV » i;« TH NTSl ? I5» «*■ NTS2 = 1$ > 

06. CALL 

or, CALL tm 

08, € 

0». C 

?0. 000 CONTINUE 

71. C 

72. C 

73. 002 71 3 NARN^niARN+l 1/2 

70. NTH s NTH « NPRN • | 

7f. 120 £ NTH « I 

70. NTH c NTH ♦ N ♦ 1 

71. t27 = NTH ♦ I 

7Q, NTH X nth * NPRN * I 

70. L28 X nth ♦ I 

eO. NTH X NTH ♦ NARN ♦ 1 

81. tflNDfh .6E. NTH<L25«l> GO TO 010 

82. C 

81. NEED = NTH - NOIN -125 ♦ I 

80. CALL TOPLlN 

85. wniTE(OpOO$> NEED, NDATA(LH»1) 

86. 005 F0RnAT(83H0* * • INSUFFICIENT OTNAWIC STORAGE AVAILABLE FOR FLOU 

87. IBAIANCING SUBROUTINE • • • // 8X SHSHORT 15^ 2IM LOCATIONS FOR NE 

8B. ITyORA A6I 

89. CALI ilABCK 

90. call EXIT 

91. C 

92. 010 DO 620 J=L26,NTH 

91, NtXT(J> X 0 

90, 620 CONTINUE 

95. C 

I 96. NEXm26 > X N ♦ 2 

97, NEXT(l26^n x NPRN 

98. NEXT(L26>21 x NPRN 

, 99, NEXT(L27) x NPRN 

I 100, C 

I 101. NEXT(L2ai X NPRN 

102, 00 622 JxlpNPRN 

' 103. NEXT(L2e«Jl X NEXT(125*71 

ION, 622 CONTINUE 

! 105. C 

: 106, c ASSEFIHC COEFFICIENT fiATAlX 

107. C 

IOO. DO 625 J=R,L20p5 

; 109, K X lM ♦ 0 

110. NTB X NOATAtXl 

Ml. NFfiPl X NOATfl(X^l ) 

112, NTO X nDATAI K»2) 

113, NR X niUO (NFRHpNTOl 

I 119. NC X F1AI0 <NFRn,NT01 

115. NRNR X (NR*| WJVR/2 ♦ 2 

116. NflNC X <N'C-lJ*NC/2 • NR ♦ 2 

117. NCNC X <NC*I J»NC/2 ♦ 2 

no. CF r RDATACL^^NTB) 

119, EKT(1?6*NRNR ) X CYr{i2(«NRNR| » GF 

l?0. FxTU26*NRNC» x E 1 1( L 26 tNRNC 1 - CF 

121. ETTU26»NCNr » X m(L76*NrNC» ♦ CF 

122. 625 CONTINUE 


flobal 

FLOBAL 

FL08AL 

Flobal 

flobal 

FLOBAL 

FLOBAL 

FLOBAL 

flobal 

FLOBAL 

flobal 

Flobal 

FLOBAL 

flobal 

Flobal 

flobal 

FLOBAL 

flobal 

flobal 

Flobal 

FLOBAL 

flobal 

Flobal 

flobal 

flobal 

flobal 

FLOBAL 

FLOBAL 

Flobal 

FLOBAL 

FLOBAL 

Flobal 

flobal 

Flobal 

flobal 

flobal 

flobal 

flobal 

flobal 

Flobal 

FLOBAL 

FLOBAL 

flobal 

flobal 

flobal 

flobal 

riDBAL 

flobal 

flobal 

flobal 

FLOBAL 

flobal 

Flobal 

Flobal 

flobal 

FLOBAL 

FLOBAL 

Flobal 

Flobal 

FLOBAL 

FLOBAL 

FLOBAL 

FLOBAL 
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I 

Ifi .K2T, COP) CO TO 630 
12^, C6Lt LlKECmJI 

125. C6LI EEN3UTC 1,1,0,*0P1AT«U 6ff0« HEOOCTION*) 

126. C61L UKECl(t2> . . 

121. CALL 6EOJ3UT(tlT<L20*n,l,NEXT(U8> ,‘OPaCSSt*aE N3DESM 

126. CALL Lf«£CKt2) 

12^, CALL etK3unUf<L26*J),l,«ElT(L26>-2,'OCOEFr£CI€tiT hATftlJIM 

ISO. CALL UKECK(2) 

ni. CALL €tm0uT<ElT(L2T«l).l,NEKT(L2a> ,*0R1GMT KA%D SIDEM 

112, t 

111. C U^POSEO FLOy RATES INTO RHS 
13^. C 

135. 430 1R.N3T. LlFR» GO TO 690 

136. 00 680 j£l,NPRN 

isr. NPR - NEIT(L25»J> 

138. EIT<L27*J> s ROATAUe^NFfll 

139. 480 CONTINUE 

1N0. C 

191. C INLET FLQy RATE INTO PH$ 

192. C 

193. 490 N s NPPN 

199. TOO |f(NPI .IT. n GO TO TS: 

195. NlfNR = NP1 

196. CALL PRN(NElTa25),N,NlFNR> 

19T. IFIN ,LE. NPRNl GO TO 760 

198. t 

199. NIFN - NPl 

190, 720 CALL TOPLlN 

191, yRITEU»7901 NlfN^ NDATALLlN^n 

192, 790 F0RNATI49H0* • * ERROR IN LOCATING PRESSURE NOCE WITH IMPOSED FlO 

193, IN RATE « » 4 // 81 9HNOOE 19, 27H VAS NOT F0UN7 FOR NETwIRA A6 1 

199. CALL klKBCA 

195. CALL exit 

196. C 

197. 740 tXT(L27«NIFNR) x VIN 

198. C 

199. C SPECIFIED PRESSURES INTO COEFFICIENT riATRIX AND RRS 

uc. c 

Ul. 780 IF(122 ,LT, 1 1 GO TO 890 

142. ir{N0ATA(L22l .LT. 1 ) CO TO 890 

163. 160 s N0ATAU22I 

169, DO 820 J:l,l60 

169, NSPRN s NOATA(L220) 

166. CALL CFiPn5SlRDAIA<t3*N5PRN), NSPRN ,EXT( 12643), EiT(l274U, 

167. I NEIT(L28 ),56601 

168. 820 CONTINUE 

169. LPR s .FALSE, 

170. RPR = 0. 

171. IF(NPO) 920,920,899 

III. C 

171. 890 |F(NP0 ,IT. 1 1 GO TO 920 

179. LPR = .TRUE. 

179. RPR r RDATA(l3«NP0) 

176. R0ATA(L3*NPJ) = 0.0 

177. 895 CALL C?:PftS5lfl0ATA(l3»NP0>,NP0,EXTlL2643»,EXTtL27*n, 

178. 1 NExTrL28),:890) 

179. CO TO 920 

180. C 

IBl. 890 NSPRN ^ NPO 

,182. 860 CALL TOPLlN 

183. VR|TEt6,880) NSPRN, NPATAfLlR^M 

189. 880 FJRrATflOKO* • • ERROR IN LOCATING PRESSURE NOTE U'lTR PRESSURE S'* 

10$. lECIFlfO - ♦ • // PI **HN0CF 15, 27 h fAJ NOT F3U%C FOR NEIlORA AM 


•WW^' ’'"‘riOBAL 

•nem;^' ['‘floral 

' floral 

•NEW ' ' FLOBAL 

•new" ■ floral 

•NEW floral 

•NEy floral 

•N£y Floral 

•NEy floral 

♦4-1 floral 

FLORAL 

floral 
•NE y floral 

•4-1 Floral 

floral 
floral 
floral 
Floral 
floral 
floral 
floral 
FLORAL 

floral 

floral 

floral 

FLORAL 

FLORAL 

floral 

Floral 

flcral 

FLORAL 
floral 
floral 
Floral 
floral 
floral 
floral 
Floral 
floral 
floral 
floral 
floral 
floral 
floral 
Floral 
floral 
4NEN floral 

ANEW floral 

4NEM floral 

4NEM FLORAL 

•NEy Floral 

•NEW floral 

•NEW FLORAL 

•NEW floral 

•NEW floral 

•NEW floral 

•4-9 Floral 

floral 

FlOPAl 

FL3RAL 

floral 

FI oral 
F lORoi 
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11. 


CALI ilFOCA ‘ N. - I^r ni , 


-• FLOBAL 


’ 

call E*1T ' " ■’ " ' f 1 > ^ » M 4 ^ . 


--riOBAL 

169. 

' C' 

<■ ' < ' >• , rtilk 


FIOBAL 


c ounn 2 «E:sLmc into coefficient p^rtru *no ftws 


flobal 

no. 

c' 

. < 1 ‘ 


‘^FlOBAL 

ni. 

c 



FlOBAL 

nz. 

C SOLVE FC8 FRESSURES 


FIOBAL 

ns. 

C 



flobal 

n^. 

f20 

nPAN ; A:EIT(L2«I 


FLOBAL 

nj. 


NEIT(1?61 * f:PRN*trPRN4n/2 ♦ 2 


flobal 

n&. 


llEtru26*n s PPRN 


FIOBAL 

n7. 


NEiTU26*2» • fPRN 


FIOBAL 

ne. 


in .HOT. COP 1 GO to 410 


FLOBAL 

n». 


CALL 1TNECA121 

«NEW 

FLOBAL 

700, 


CALL SEK0uT(|, 1,O,*0F^ATRI* AFTER REOl'CTIONM 


flobal 

101. 


CALL UNECA(2I 

•NEW 

flobal 

J02. 


CALL CEN3yT(E3Ta28*l >,l,NElTIL2fll , ‘CPRESSURE NOOESM 

•NEW 

FLOBAL 

2Q1. 


CALL LtNECFCZI 

•NEW 

flobal 

204. 


CALL 6EN3L'TCElTU26*3),l,NElT(L26)-2,'0C0€FFCCl£Nr FiATRIIM 

• NEW 

. Flobal 

205. 


CALL. LtNECK(2l 

•NEW 

Flobal 

20«. 


CALL FFN:»jT(ElT<l2r»l >,l,NEXnt28) ^*ORIGKT HALO SIOEM 

•NEW 

flobal 

207, 


CALI ltNECK(2 1 

•NEW 

flobal 

20a. 

too 

CALL SvnS0UElt(L26*3),F'PRN,EJTU27M1,M020l 

••-3 

flobal 

20». 


1FK0P1 call GEN0UHCMTU274V >,l,NC»Ta28>,«OPRES$URESM 

•NEW 

FLOBAL 

210, 


€0 TO 1060 

•♦-1 

flobal 

211. 

C 



FLOBAL 

212. 

1020 

call T3PLIN 


flobal 

213. 


vRirtn, 10401 NOATAan^n 


flobal 

214, 

1040 

F0RnAt(6IH04 4 4 ERROR IN SOLVING PRESSt'RE/FlOw EOUATIONS FOR NET 


flobal 

219, 

lUORK 66, 7H » • *1 


fiOBAt 

2U. 


CALL WLK6CF 


Flobal 

217. 


NTH = L25 - 1 

•NEW 

flobal 

218, 


CALL OuTCAL 


flobal 

21^, 


CALL cm 


FLOBAL 

220, 

C 



flobal 

221. 

C 



FLOBAL 

222. 

C irFOATE PfiESSyRES 


FLOBAL 

223. 

t 



flobal 

224, 

1060 00 lOeO J-l,FiFRN 


flobal 

229. 


NPR s NETTa204j) 


FLOBAL 

tn. 


RDATA(L3*NPR1 s EXTU27*J) 


flobal 

227. 

USD 

CONTINUE 


flobal 

228. 

c 



flobal 

224. 

C CALCULATE NFU FLOW RATES 


Flobal 

230. 

C 



flobal 

231. 


00 1120 J:4,L20,9 


Flobal 

232. 


A 5 Ll4 ♦ J 


flobal 

233. 


NTO ' N0ATA( K 1 


flobal 

234. 


NFRf4 = NDATAl Ml 1 


flobal 

239. 


NTO = NDATA(M2) 


flobal 

236. 


NFRn r NEIf< L25«NFni4> 


flobal 

237. 


NTO 5 «FIT4L25*NT0 1 


flobal 

238. 


TEfiR = RDAfA< l4*NTB)4(RCATA4l3*NFfln>-RCATA(L3*NT3n 


FLOBAL 

234, 


WNTO = RDATAt L?*NTB 1 


FLOBAL 

240. 


TEMP s WNTB ♦ FRDF*C TEMP-UNTB 1 


FLOBAL 

241. 


RDATAU2*NTB> £ TEMP 


flobal 

2H2. 


Owm r Ar.Ai H AB$l T£mP/l'NTB-| ,0 »,Curi » 


FlOBAi 

243. 

r 



Flobal 

244. 


If[ .N3T. COP) GO TO 1120 


FLOBAL 

245. 


CALL llNErK(3> 


flobal 

246. 


PNFflM £ RDATA(13*NFJ1M) ♦ RPR 

•NEW 

FLORAL 

247. 


PNTO = fiCArfi{l3*NT0 1 ♦ RPR 

•NEW 

FlOBAl 

248. 


kRJT£<6,n001 NTB,NFnM,ft<T0,RCflTAa44|y,TB),PLF4M,?NT0,WNrB, TErP 

•NEW 

flOBAL 



lfr“V 



2^1. 

1S2. 

251 . 
25^. 

255, 

256. 
25T. 

252. 
252. 
160. 
261. 


UOOTJflHATW. n ?«NT 6 j= HO . 81 ?M 5 Fp«, r, 1 10 , 

1 81 IHNTO = tlO , 81 TMCF a 613.8/121 TH^CKFRnl 613.8, 

2 55 TKP(«lTaU Gll.B, 51 ?Hi.’OlO s G13.8, 51 THWhehl s 611.81 

1120 C0NriliT.'6 

IR .*I0T. tPRl 60 TO 1160 
00 n^o j=i,«PRn 
ItPR s NElT(L2e»J) 

PDATAlLl^MPRl : R 08 TA( 13 «MPR 1 ♦ RPR 
1159 CONTIWL-C 

RDATAUl^MPO) ? RPR 
1U0 MTK : L25 • 1 
RtTuR^ 

EKO 


•hEtf 

••-I 

*iyFi# 
•NEW 
«M£U 
«K£W 
vltRI 
•HIM 
«1T£61 
• •-I 


FL08RL 

fLOBAL 

ftOBRL 

nOBAL 

riOBAL 

FL08AL 

fLaBAL 

FLOBAL 

flobal 

flobrl 

FLOBAl 

FtOBAt 

flobal 
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icNI FiaClil FlQCN) FLOCNl FtOCMl FlSCNl FLOCNl FiaCN! FLOCN1 FLOCN1 FLOCitI 


1 

t 

a 

9 

4 

I 

a 

% 

to 

ti 

12 

n 

14 

19 
14 
II 
10 
14 

20 
21 
22 
2) 
24 
29 
24 
2? 
28 
24 
10 

31 

32 

33 

34 

39 
34 
31 
38 
3* 

40 

41 

42 

43 

4S 

49 

44 
4T 
48 
44 

90 

91 

92 

93 

94 

95 
94 

97 

98 

99 


C 

c 

€ 


C 

c 

c 


t 


c 


c 


c 


t 


SUtaauTtNF FLdCmi LLOC^filOC^HLaC > 
IDCICH LCP 

BiRtNSIOiV LUC(tl» PLOCUI^ 4I10C< II 

COWON /TFhP /Til) 

COWJM iCONO / GUI 

COWON /DirCNS2 NND, NNA, liNT, N&T 

WUIVALCNCE <MJ,U) 


rFiuaci 1 > .or. oi go to 19 

CALL TOALIH 
lffltTE<4,10) LLQCm 

to FORnAK 73H0* • « INCORRCCT NUPBCR OF UEf^ENTS INPUT TO FLOCNl FOR 
I FLOW RATES, 1C = 19, TM • I 

call WLlteCK 
CALL EXIT 

15 KW s PLOCCl) 

tFlNU .LT. I .OR. NU .6T. 490001 GO 13 20 
LCP = .TRUE. ' 

Cf s W 
GO TO 29 
20 LCP s .FALSE. 
rCP 5 Nu 

29 !F(fi00iNL0Cm,3> .EQ. 0) GO T3 40 
CALL TOPLIN 

URITE(4,30I NLOC< 1 1 

30 FORnAT<83HO» • • INCORRECT NUMBER OF CLEMENTS INPUT TO FLOCNl FOR 
I FlOU CONDUCriON DATA, SC - 19, IH « • »l 

CALL M.KBC4 
CALL EXIT 

40 NTB = ILOC* I } 

It : NLOC( 1 I 
SO 200 1:1, 1C, 3 
NG : Nl.OCd^U 
NOL = NLOCU+21 
ITU8E 5 NL0C(I*3l 
1F(NG .GT. NGTI GO TO 40 
in 17U8E .GT. NTB I CO TO 40 
|F<NDL .IE. NNT) GO TO tOO 
40 CALL TOPLIN 

NRirEC4,80) (NL0Cn*JI,4=l,31 

80 FOAMAT(40hO* • ♦ ERROR IN FlOu CONCUCTION CATA INPUT TO FLOCNl • 
1 # • // 5H0NG = 14, 4H NOL = 19, 8M ITuBE t H | 

CALI LIABCR 

call Em 


too HU T LLOC< ITUBEH I 

IFUCP) CALL OlDEGJl T<NOL l,MLOr 
61 NO r u*CP 


200 CONTINUE 


,CP> 


FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FIOCNI 

FLOCNl 

FiOCNI 

FIOCNI 

FIOCNI 

FLOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FIOCNI 

FIOCNI 

FIOCNI 

FtOCNl 

FLOCNl 

FLOCNl 

FLOCNl 

FtOCNl 

FIOCNI 

FiOCNI 

FLOCNl 

FtOCNl 

FLOCNl 

FLOCNl 

FIOCM 

FIOCNI 


RETURN 
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fHO 


f 1 1 ' I ' » > f I .M ♦.. > < I * 1 1 If « f |^o(m 
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• rtacwr'’ ^ rwcm * ’ 


I. SWaUTl^E FL3CN2<P»lOC.tF»HL3C> 

I. t 

y. Oir^ENSION mtOC<ll, HL9C(I> 

c 

f . CONDON /COfXO / %ili 

4. CCftf^N /OirtENS/ (UNO, 4VN4, N&T 

t. c 

t. cauivFiCf^CE iNVJ.y) 

c 

10 . c 

II. tftnLOCd) .GT. 0) GO n 20 

12. C4U TOPLUli 

U. yniTE(6,l0» niocn > 

M. 10 F0nrATU3H0« • « rAICa^RECr KiUFiBGfl OF EltFGNTS INPUT 13 FL0CN2 F3M 

». I Flow RATES, 1C = IS, IH • • •> 

14. CALI 

IT. CALL HIT 

la. € 

14. 20 IFtnOOChlOCni.T) .EO. 0 I €3 TO aO 

20. call TOPLIN 

2t. WRnE(6,30) NLDCd) 

22. 30 FaRrtAT(e3H3- * # INCOftPECI NUnBER OF ELEP^ENTS INPUT T3 F10CN2 FOR 

23. I FLOW conduction DATA, It s IS, 7H « « •) 

24. CALL WIKBCK 

25. CAU HIT 

24. C 

2T. 40 NTB s riLOCd) 

21. 1C sNLOCU) 

24. DO 200 1=1, 1C, 2 

30. NG = NLOtU^I) 

31. ITUBE 3 NLOCU^a) 

32. IFING .6T. RGT) GO T3 40 

33. IFUTUBE .LE. RTB) GO TO 100 

34. 40 CALL TOPLIN 

35. yR|T£f4,80) <N10C< UJ ), J=1 ,2 ),CP 

36. 40 F0ftnATl60H0* • f ERBOfl IN FLOW CONDUCTION DATA INPUT TO F13CN2 • 

3T. I • » // 5H0NG = 14, 8H ITUBE = |4, CP = 613. ?> 

34. CALL 41KBCA 

3T. CALL ETIT 

40. C 

41. 100 NU S nocc ITUBE+l) 

42. 6(NG) = W»CP 

43. 200 CONTINUE 

44. C 

45. RETURN 

44. END 


«]lEtf rtOCNZ 

•♦-I FL0CN2 

fL0CN2 
fLOCNE 
riacN2 
FL0CN2 
FLQCN2 
FL0CN2 
♦A-l FL0CN2 

FL0CN2 
nOCNZ 
FL0CN2 
FL0CN2 
FL0CN2 
FL0CN2 
FL0CN2 
FL0CN2 
FL0CN2 
•NEW FL0CN2 

••-1 FL0CN2 

FL0CN2 
FL0CN2 
FLOCNZ 
FL0CN2 
FL0CN2 
FLOCNE 
FL0CN2 
FL0CN2 
•NEW FL0CN2 

••-I FL0CN2 

FL0CN2 
♦••I FL0CN2 

FLOCNE 
FL0CN2 
•NEW FLOCNE 

•»-l FLOCNE 

FLOCNE 
FLOCNE 
FLOCNE 
FLOCNE 
FLOCNE 
FLOCNE 
FLOCNE 
FLOCNE 
FLOCNE 
FLOCNE 
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FtPPf«T 'riFfthT ‘'riPBNT 


'flPRNT ''riPifthT *'rLP»NT 


• I «'l 


FtPBHT 


# » ’'r 


fLPRNT 


r I pr , f 1 ' < 

fLPftHf FLPJHMT 


&u6BauTi«4r FLPRNrc oataJberd I 

e 

c 

coBAOli /FncoN/ im 

c 

louivncmcc (i»nt,di 
c 
c 

D = DATAU I 

IF(U19> .FQ. 0 .OR. LI 20 1 ,G€, 601 CALL TOPlUV 
WRlTnA.lOl > KEAO 
uia) : L(2e> « 2 
us r l 
UF : 10 

9 IFlUf .6T. UNT) GO TO 20 
10 LJRtTEU«1001 ICATAIIM IJsNS.UF), RlF 
L(26> s LI201 • I 
IFILIZBI .6£. 60) CALL TOPLIN 
IFINF .EQ. UNT1 AETURU 
US - A.T ♦ t 
•IF * UF ♦ 10 
GO TO 9 

20 URITEI6 J00> <OATA< I«1 ),!r«jS,NUn ' 

IFUI20) .GC. 60) CALL TOPUN 
AETURU 

too FORfiATnn $G12.9^ 91 9G12.9, 19) 

101 FORflATI INO 21A6/ A9) 

END 


FLPAUT 
FLPANT 
flpamt 
»\PAUT 
nPAMT 
FLPAUT 
FtPAUT 
FLPBUT 
FlPRMT 
FiPA«* 
FLPRUT 
FIPRNT 
FLPRNT 
FlPRUr 
«NEU FLPRUT 

«UEW FLPRUr 

#UEW fLPftUt 

*♦-9 FIPRNT 

FIPRNT 
FtPRNT 
FLPflNf 
*N£W FLPRNT 

••-I FIPRNT 

»NEM FtPRNf 

»NEW FLPRNT 

•NEW FLPRNT 

•NEW FLPRNT 

••-I FLPRNT 

FLPRNT 



A-46 



1. 

2 . 

5- 

«. 

7. 

10. 

11. 

12 . 
11. 
1^. 
11. 
li. 
17 . 
16. 
II, 
20 . 
21 . 
22 . 
21 . 
21. 

25 , 
2i. 
27 . 

26 . 
25 . 

30 . 

31 . 

32 . 

33 . 
35 . 

35 . 

36 . 

37 . 
30 . 
39. 

50. 

51. 

52. 

53. 
55. 

55. 

56. 

57. 
56. 
55. 

90. 

91 . 

52 . 

53. 
55. 

95 . 

96. 
5 ?. 

58 . 
55 . 


FU»ES FL0ES FLOES FLOES aOES fLO£S FlOES FLOES 

' • ' I 

.. ( - .r M n * ■ “ >, n 'Tf f t H t • ( ,»j «♦ t T< > 

SU0A3'JTINE FlOEStLIO^hTOI . 

^ , I > , r ‘ t . t « * I ^ . 

LOGICAL LRO, IW^ COP < ^ « 

C 

OlflEOSrON 005T6< 1 > 

c 

COmOo /ARRiy/ nqat«( 1 1 
CO«ViON /fCF^P / T <11 

COWOM /FOATA / LI, Li, L5, 19, 16, Lt, L§, L5 
COWIDN /FDATA / IVP, LIFR, LAft, LOP 
COrwON /rOATA / COP, IRO, R3, IP'U, hr^, IPL‘, 6C2 
COWOK /FOftTA / TOL, PiPASS, EPS, fflOF 
COWnOK/lSPACE/NOI«,AiTH,NEXT( \ ) 

cowok/poiktk/lkooe 

c 

equivalence (nDATA,NDAlA>, (HI, NHL) 

c 

DATA fiAll /65090/ 

c 

c 

WNTB 7 A6S(RDATA(L2«NTB) ) 

M = 5.0*UNT6 

nsun - 0.0 

1C S NDATAaiO) * f 

c 

C FLUID Lunp LOOP 

c 

00 200 IM,1C,3 
R ’ L30 ♦ ] 

NFL = N0AfA(in 
ITVPE = NDATA(*<^II 
RTL s NDATAlK^n 
ITVPE = LT ♦ ITVPE»6 - 6 
HP S POATACLTYPE^I) 

C5A 2 flDATA(LTVPE»2) 

FLl = flOflTAUTVPEO) 

PFF 2 N0aTACLTyPE*5> 

NHL 2 NDATA(LTVPE*5 ) 

FFC 2 flOATACLTyPE*6) 

C 

if<lrj) Call oioegi(t<«fl),noata<nro), roi 

IFUPU) CALL DIOEGK T(NFl ),N0ATA<NP)U),IWU) 

RE = WI/XPiU/WP 

IF(NHL ,CT. 0 .ANO. NHL .LT. nAlM CALL OlDEOM H,N9ATA( NHL ),HL 1 
1F<RE ,GT. 2000.0) GO TO 100 
HHU = T/*'U 

IF<LnU) CALL OlOEGK T(NTL l,NOATA<Nr‘U»,L'Hl') 

FF r 65.0/a£»5anHUfmtVlf!U) 

GO TO 150 

too IFfHFF .EQ. 0) GO TO 120 

CALL OIOEGI(«F,NCflTfl<nFF),FF) 

CO TO 160 

120 IF(flE .LT. 5000.0) GO TO 150 
FF - 0. ji6/5JRn 5Qflrr»f n 
GO TO 160 

150 FF r 0.20860?2052 ♦ REM -0 . 1060265 325E-3 ♦ PEM :.6236703T?5€-T 
I • PE*l -O.65555P10EM1 )M 

160 R 2 < FF*FFC«ru/< 5,3*CSArwP J^HO^U'NTft/GCI/CSA/CIA/RO 
RSUI^ 2 RSl'H ♦ R 


FLRES 


•NEW 

•IKEW 


«NEU 

••-1 


n ' t . 


riRES 

FLRES 

FIRES 

FLRES 

FIRES 

FLRES 

FLRES 

FLRES 

FIRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FLRES 

FIRES 

FIRES 

FIRES 

FLRES 

FIRES 

FLRES 

FLRES 

FLRES 

FLRES 

FIRES 

FIRES 

riRES 

FLRES 

FIRES 

FLRES 

FLRES 

FLRES 

FIRES 

FLRES 

FLRES 

FLRES 

FIRES 

FIRES 

FLRES 

FLRES 

flags 

FIRES 

FIRES 

FIRES 
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j 

«1. Iff Caf I G3 V3 200 

4*. cm IIKECK(5I ^ ^ 

43, W«|T€U,ie0)«lftLN0CC*1«fl>,TtNFtl*nVPE,h€<TCtWt**lTLl,ffNTt», 
1tK0ATA(LTVPC*J>« J=l,^J.fFC,ML,RJ,lftU,«,FF,R 

lao FOftrpaC/ TI iMHfl S no ^ si THTI4Ft>= 613. S, 

44, I SI TMlTyPE * no , SI 7HNTL = 110 , SI IMTUlU 1= 613.0/ 

47. 2 TI ThwP » 613.8, 51 THCS4 = 613.8, 51 TMfU * G13.S, 

49, J SI lwr.fF * no , 01 ThFFC 613.8/ tl Tm»il = 613.8, 

44. 4 51 IMR3 a 613.8, 51 THRU a 613.8, 51 = €13.8, 

TO, 5 51 7HFF a 613.8/ TI TMR a 613.0 1 

TI. too CONTim 

T2. «08T8tt4*HT81 s I.O/RSV^' 

Tl. C 

TS* Iff ,H3T. COP I to TO 300 

75. cm Ll«Cl 121 

T4. WfliTEC 4,220) ROATRitS^NTfi) 

7T. 220 FORnRH/ TI 7«Gf NTS >= 613.8 1 

TO. C 

74. 300 RETl'RN 

50. c 

81. EKO 


flres 

fLRES 

FIRES 

flres 

M tpir FLRES 

Mrt FIRES 
1 < FLRES 
FIRES 
FLRES 
FIRES 
FIRES 
FLRES 
FLRES 
FLRES 
FLRES 
FLRES 
FLRES 
FLRES 
FLRES 
FLRES 
FLRES 
FLRES 



1 fLu* nui , , aui . fi«« , . . r^.u* , , . , , , no* , , , , , , rm* »i.u« 


t. 


SUIR3UTI« FLl»I<NFLlTf,Pimk,IICOV,OaT|rE,qntt£| 

FtUi 


C 

RUI 

3. 


DliMElKSlON GATOni 

ftui 


c 


FL«1 

». 


cowwii /fiicoN/ Tirrft 

riui 

I. 

G 


rius 

1. 


EOUtVOLruiCC ID,IO 

FLU* 

1. 

C 


riu> 

f. 

c 


FLUl 

10. 


IROTIFIG .€€. TInENJ J?CTURN 

FLUl 

11. 


IRP^PtlTP .6T. 01 REftO(%rLfTf) fLSTI« 

FLUI 

12. 


HR Ilf ? 

FLUl 

11. 


10 RtHOnk‘‘LlTPl IHf, tCflTM 

FLUl 

1^. 


1 IDRTM 

FLUl 

I». 


OEAO(MRITP) FtITIH 

rivi 

U. 


aUPE S FLItiP ♦ OatlPiE 

FLUl 

If. 


IfCOTIP^ .If. T1«EN> 05 TO 10 

FLUl 

10. 


VTUTnO.ZD) QTIP^F 

FLUl 

It. 


to F0RPIAT<t2H FLUl TABIES ENDING OT $11.5, I5H HAVE BEEN BEAD > 

FLUl 

to. 


IOC s 1 

FLUl 

II. 


0 : DATA(LOC) 

FLUl 

12. 


1C s H 

FlOl 

11. 


00 10 Jrl,lC,2 

FLUl 

to. 


OAtAUOC^Jl 5 OATA(tOC*JI ♦ OOTinE , 

flUI 

25. 


30 CONTINUE 

FLUl 

tft. 


iOC = IOC ♦ 1C ♦ 1 

FLUl 

If. 


to CONTINUE. 

FLUl 

2i. 


NFUTP »: -NFLITP 

FLUl 

It. 


RETURN 

FLUl 

so. 


END 

FlUI 
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^ SUMauTlflE 6E*J0uT(N0HTH,IST«TJSTP.IIfApH:» 

1. OIWSION fFiUMi, KArel22l 

OI^ENSIO^ K0A7AU 1 

9, DATA PAII / n%2l7T2a/ 

♦. data min), fFiTolw 6Hnnp , 6 h uo> / 

T. LOGICAL ONE, CRD 

• . C 

9. 8ASE r AHC12.A, 


10. A«IGN 32 TO IW 

11. C«0 = .EALSC. 

!2. GO 10 9 

13- entry GENnNOATA,ISTRT,lSTP,IIAnE* 

lA. 8ASE 5 GHI9, 3R 

19. ASSIGN AS TO Wn 

10* CKO = .TRUE. 

IT. GO TO 5 

10. entry GENfl<NOATAJSTAt,ISTP,NAnE> 

19. CASE = AHEI2.A, 

20. ASrtGN A5 TO M 

21. CKO .TRUE. 

22. » Am|TE(A,ICl> NAfnE 

23. ID fO«nAt{22A6l 

2A, One 5 *PAISE. 

29. IFMSTRT .EO. 1 .AND. ISTP .EO. I > ONE s .TAVE. 

10. 19 l-ISTRT 

2T. 20 tm ,GT. ISTP I GO TO TO 

23. CALL LINECKm 

29. LSI 

30. 0? 30 J=2,ll 

31. FMTU; s BASE 

32* 30 CONTINUE 

33. |E(CKD .AND. ONEI GO TO 00 

3A. IF(1 .NE. ISTRTI GO TO 30 

39. RsISTRT-lOMIStftT/lfl J 

30. |F(PI ,C0. 1> GO TO 10 

3T. IF(fl .EO. OJ FI 2 10 

3t. 03 35 J=2,« 

19. FriT(Jl=iH 121 

AO. 35 continue 

Al. L=n 

A2. Jsr-f|4>10 

93, GO TO 38 

AA, 30 J=IO 

A5. 38 IFU .LE. ISTP) GO TO 39 

A6. n = ISTP • 3 ♦ 12 

AT. J=ISTP 

A8. DO 3? K2«,ll 

A9. FPiT(K>=OH 121 

90. 3T CONTINUE 

91. 39 60 TO rn, (32,A5) 

92. 32 03 AO K=I,J 

93. l=l»l 

99. imAB5<N0ATAl« n *IE. HA»I> FrTILT= 0 H| 9 , 31 

55, AO CONTINUE 

50. A5 in ONE) GO TO 00 

5T, kJR|TE(0,FnT »( NOaT A( K ),Kr I , J J 

98. I2JM 

99. 60 TO 20 



GEN3UT CENOUT,,,. GGNOUT 


GENOUT 

genout 

GEN3UT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
•NEy GENOUt 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOuf' 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 
GENOUT 



«0 kmiUK6«Fnn WD«T«ISTRT> 
TO Rcruftm 
CNO 


n r I ,M I M ■ f < I ' r r < , 1* ■ , 


0 

«l 

« 2 . 


’ , eenouT 
cctiauT 
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1. ^ ^ ^ 


1 . 

I. 

I. 

i. 

7, 

I, 

9, 

10 . 

11 . 

n. 

n. 

H. 

19. 

14. 
17. 

15. 

n. 

70. 

21 . 


21 . 

29. 

29. 

26. 

27. 

29. 

29. 

10 . 

II. 

32. 

33. 
39, 
39. 

34. 

37. 

38. 

39. 

90. 

91, 

92. 

93, 
99. 
^5. 


98. 

99. 

90. 

91. 

92. 

93. 

94. 
99. 
54. 

97. 

98. 

99. 


DIR£99I3PI mim, f\fF(24l, HVFdl), NFCU) 

»L0« 75 I, Y«I( 75 1 >,BLTR< 9000 1,171 330001 

IHUCFR TltlCsn? ),TlUtB( 20 »,f lUFCC 20 >,TniE5( 9,75 » 

1 ,IT7TlSI 9,?5 >,8C0I(9),BCDY(9,U >,lTEn ?9),lTYPE< 79) 

2 ,IGSC 74 ),«EY4( 11 1,1EYBC 12 ),SL4N« 

3 .TnESaO) 

OlfiENSlON LOC(74),»OS( 1) 

Dlf^ENSIOtl lTnAVG(90), AVGUSO), 4VGl(}C< 100 >, H09M2) 

C0W39 mPTS,TPG.BUFR 
COWON /tVARY/ lY 


0EPLT003 

0IPLT009 

StPLTOOS 

C£PtT004 

6CPLT007 

fiCPLtOOS 


tOUI valence i BL'FR( \ ), ABS< 1 I »,( BUFIU 2001 ),aRD< I ) ), 

1 tmL£Sd,ll,lTYTLS(l,tn 

20UIVALENCE 1N1,1Y) 

C ARRAY CCFtNITlONS 

c 

C «S - ABSCliSS VAU’ES FOR Th£ CURRENT FRAPIC 
C 8CD1 - ITCH NAHCS AND 0lH£NSI0N INFORnATION ON TM£ ABCISSA 
C BCOY - lt£H NAHE5 AND DIHENSIQN INFDRnftTION ON THE ORDINATE 
C OUFft - BUFFER FOR READING HISTORY TAPE RECORDS 
C ICS - ARRAY FOR STORING THE I TEH TYPE INDICES 
C ITEN - THE ItEn NUrBERS TO BE PLOTTED 
C ITYPE - THE ITEH TYPES FOR THE RESPECTIVE ITEM NUPifiERS 
C KEYA - ITEH TYPE CODE ARRAY 
C REYB • INDEX TO ITtH TYPE IN Bl'FR ARRAY 

C LOC - INDEX TO lun ON EACH TIHE RECORD (ERROR CODE IF NEGATIVE) 

C ORD - ORDINATE VALUES FOR THE CURRENT FRAHE 
C TITLEA - GENERAL TITLE FOR EACH FRAHE 

C TITLES - TITLE OF |-$T AND 2-ND ITEnS ON THE CURRENT FRAHE 

C TITLEC - TITLE OF 3-RQ AND 9-TH I If nS ON THE CURRENT FRAnE 

C titles - THE ITEfl PLOTTING SYnBDLS AND DESCRIPTIONS 
C lY - ARRAY FOR ITEnS TO BE PLOTTED I INCLUDING TIHE) 

C YHI - THE rAXmcH ORDINATE VALUES 

C YLD - THE mNlnun ORDINATE VALUES 

C 

€ WORD OEFtNiriONS 

c 

C PEHS - THE Nl'PBER OF ITEnS PER TIHE RECORD FOR PLOTTING’ • Ml s 75 

C NGRDS - THE Nl'PBER OF GRIDS REOUIREO TO SPAN THE RANGE ( U - TA) 

C NSrZE - THE NUPBER OF WORDS ALLOTTED TO THE KY ARRAY 

C NTOTL - NUPBER Or WORDS USED IN THE XY ARRAY 
C NTynS - the NL'PBER OF POINTS TO BE PLOTTED ( = NSIZE/ITCnS) 

C NURDS - The NL’PBER ?F ITEnS PER TlnE RECORD ON THE HISTORY TAPE 

c INITIauzaTION 

c 

DATA fBCDXn>,I-J,^> /Z^iH TtnE >(«««••) / 

DATA (TPESCK /IPH( SEC ( P»IN (HOURS/ 

DATA NvF/*( 38X^4HL0ACE0.F|1,5,?2 h LOOKING FOR.Fll ,5 , 4 H** 

1****)V 


SEPLT009 

CEPLTOlO 

gepltou 

6EPLT012 

GEPLTOn 

GEPLT019 

6EPLT019 

6EPLT014 

GCPLT017 

GEPLT0I8 

GEPIT019 

GCPiT920 

GEPLTD21 

6EPLT022 

GEPLTQ23 

SEPLT024 

GEPLT025 

SEPLT024 

GCPLI02I 

GCPLI029 

GEPLT029 

6EPLT030 

GEPLT931 

GEPIT932 

6EPIT93) 

6EPLT934 

GEFLT535 

GEPLT034 

GEPLfaiT 

EEPLT03B 

C-EPLT909 

GEPLTCMiO 

CEPLT041 

GEPLT942 

GEPLT043 


DATA SfZf* SEC, PIN. HRS- V 

DATA PVF/*<H|,«Pi,23kp t 0 I P R 0 C R A M/29I ,8 hT ITLE -,2l, 
ll2A6///28l,9HFR0fl ,F 1 3, 3, 1 &H^*t.** TO , FID. 3, I3H****** WITH 

2Fia.3, per grid////// )*/ 

data ((BCOY< I .J»,IM,4 »,Jrl 1| ) / 

1 29H 

2 2*«H ' 


I 


ft 1 1 t 

i GEPLOT 


fiEPLDI 

SEPLOT 

GEPLOF 

6EPL0? 

CEPLOr 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPlOt 

SEPLOT 

SEPLOT 

CEPLOT 

SEPLOT 

CEPLOT 

SEPLOT 

smoF 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

CEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLDT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

SEPLOT 

GEPLOT 

GEPlOT 

CEPLOT 

GEPLOT 

GEPLOT 

GEPlOT 

SEPLOT 

GEPLDI 

GEPLOT 

SEPLOT 

SEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 
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•2. 

49. 

46. 

47. 
44. 
49. 

70. 

71. 

72. 

n. 

74. 

75. 
74. 
77. 
70, 
79. 
«0. 
tl. 
«2. 
13. 
«9. 
W. 
t6. 
07. 
«8. 
«9. 

90. 

91. 

92. 

93. 
99. 
95. 

94. 
97. 
90. 
99. 

100 . 

101 . 

102 . 

103. 

109. 

105. 

106. 
107. 
lOS. 

109. 

110 . 
111 . 
112 . 
113. 
119. 

115. 

116. 
117. 
tie. 

119. 

120 . 
121 . 
122 . 


C 

C 

C 

C 

C 


C 


C 


C 


C 

C 

C 


C 

C 


1 29H W5SURE 

9 29H valve pasinoN'OATA • 


9 29H‘ ' 



4 29H , 



T 29M , 



0 29H FLOW RATE , 

9 29H TEHPERATURE , 

1 29H TCWPERATURE , 

1 29H TCr^EAATURE / 

tl^lTOSt 
ITW l»PE COCESeCflTOSS 

DATA KEYA / 2HBU, 2H0K, lH«, 2HVP, 2HHT, 

IHLB, 

6EPLT059 

1 2HBT, 2HFR, 2KFT, 2HTT, 2MST 

/ 

GCPLT055 

DATA BLANK /6H / 


6EPLT056 

GCfLTOST 

DATA 01, 02 /O00T7000000O0, 005D0050505Q5 

/ 

GEPLT058 

INTEGER PSVm9) 


GEPLTlOe 

6EPLTI09 

DATA IPSYH(l),l5l,9)72HHm T21 £33 

£91 / 

CEPlTIlO 

EITEPNAL TABLIV 


GEPLTIU 

CALI CKSIIV<2,2) 


6EPLTI12 

CALL AlTSTVn2,18,TA0LlV) 


6EPLTI13 

CALL RESET 


6EPLTI19 

GEPLTHS 

NCA5E 2 1 


GEPLTIU 

NSI2E=33000 



GO TO 60 


GEPLT118 

20 call CLOCKIETIHEI 


6EPLT119 

WITE (6,90) ETIflC 


GEPLT120 

90 FOflnAn////m,'CoriPuT£R tihc = ^fio.s,* 

NINITESM 

GEPLT121 


AEAO THE CASE CAROS M2 PRINT THE MEA0lNGriEPLTl22 


40 AEA0(5,80,ENOM60» TITLEA, TA, TI, TPG* ITHI, r?NT, NTP, AT, IHC, 

I lyNlT, ASTflT, ASTOP 
10 FORnAT( 12A4/3F10.0, 415, 2710.0) 

IFtAT .LT. n AT 5 23 

CHECA FOR COMBINE 0PTI0W5EPLT126 


IF <NTP.EQ.O) GO TO 100 GEPLT127 

CALL C0nBfN(fVTP,AT.16iC,Il)Nm 6EPLT120 

CALL CLOCKS Etlnn 8EPIT129 

6?R1TE 16,90) ETIPIE GEPLtnO 

too IH57Ry=^XT GEPtmi 


CHECK F3R BLANK - END OF JDBGEPlTUS 
IF (TPG) Ufl,UO,ieO GEPIT139 

160 CALL niT EEPin90 

GEPIT19I 


180 1F( ITWi .LT. 1 .OR. ITnx ,GT. 3) GO TO 200 
BCD70I 2 TnESCLdTfin 
NVFC 51 2 NFC( ITnX ) 

NVfnOI s NFCdfHX) 

719FU5 1 s NFCCITftX) 

HVF< 19) 2 NFCC ITrtX) 

HVFt23) 2 NFC( lift*) 

100 W8IT£C6,HVF1 TlfLtA, TA, TI, TPG 

GCPLT159 

READ ANO PRINT THE H|ST39f TAPE HEADER L ABELGEPl I 155 
290 PEAOilHSTRf) HDR, UOCU ), 1 = 13,26 ), N5L, ( N7C 1 > J = 1 ,N3L ) 

L0C(27) 2 NSL 
NSI7E = NSIZE - NSL 
LN30F = NSIZE 
DO 250 IM,N5L 
NK<LN3aE*t ) 2 N7( n 


r CEPtBT 
' SEPtOT 
EEPLOT 
GEPLOT 
ECPLOT 
ECPLOT 
EEPLOT 
CEPLOT 
ECPLOT 
GEPLOT 
ECPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPlOt 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GCPtOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPlOr 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPlOt 
GEPLOT 
GEPlOr 
GEPlOT 
GEPLOT 
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i5o;caHTiM*E ^ ; 

c I«I0£* wo COUNT THE |TC«5 0*1 THE HiSTONf tftP€i;Cft.nVT 

09 2(0t=2,U ,C€PlTIS9 

2«0 tttBtt) r KEr8M-t>, « L0C<I«19I EC^LTUO 

NVftOS * TETBtm SmTin 

IF INCASE. NE.l) CO TO JOO ' 6EFlft62 

NmilE44.?B0t HDA, <lOt( 1«UI,AEYA( 

100 FORnAT<52i,25liTHE HiSTOfiV TAPE LABEL I S//2TI. 1 2t6///l8l^22M|HE llECEAtTUA 
IH COUNTS ARE - , 4(10,02 > / NOl BIU.Al )///// 1 6EPLTUS 

t CEALT144 

300 IFINIS = 0 6EPLTI4T 

JFINIS » 0 CEPLTH0 

C ACAO the IT€«S to OE PLOTTECCEAlM ?2 

ITEHS 2 T6 SEAtT|?3 

i ® ^ cepltitn 

j ® 6EPLTI75 

NOAVG 3 0 
ASH * 0 

320 AEAD(S,3R0) ITEM n,]TVPE< I MREl,KAVC, *NEU 

I CTirLESU,t),j32,9l, YIO(I), VHJin 

3^0 FORflATMS,A2,11,l2,0A6,2t2nO.O> «NEtf 

C TEST FOR END OF JOO - IIANA CAROGEPLTJ TTw-t 

IF (ITEn(l) .ca. 01 €0 TO 20 CEPlTlOO 

IF CITErun .EO. 0> GO TO 340 GEALnsi 


IF (ITEn(l) .€0. 01 €0 TO 20 
IF CITErU 1 1 .EO. 0> GO TO 340 


IFUTTPEdl M. AEVAdin GO TO INR 

IFI IREC .NE. 0) CO TO 3^R ' • 

lACT s lABStlTEndn • 

00 3Nl L3l,NSL 

IFdACT .EO. NK(LNOOE«LM GO TO 3 n2 
3N1 CONTINUE 
GO TO INN 

3N2 ITEWn = IStGN(L,ITEri(m 
3M continue 

c CHECK FOR NEW GRIC SET SPECIFIED BY VSERGEPlTIPT 

IF dTEHdl .LT. 01 J 3 0 GEPLTI03 

IF ( ITEindl .LT. Ot KSW : 0 

C PUT BCD PLOTTING SVH80L INTO TITLES ARRAYGCPLT10N 

J 3 J*l GEPLTIB9 

ITYTLSIl,!) * BLANK GEPLTI84 

fLD(39,6,lTYTLSd,m s J * KSW 4^ N0 
IFIKAVG .EQ. 0 .OH. NOAVG .GE. 90) GO TO 3N5 
NOAVG 3 NOAVG ♦ I 
IThavGI NOAVG) * I 
IF(AflVC .LT. 101 GO TO 3N5 
1T41AVG(N3AVG) 

FLD<0.30,ITYTL5d,m = 4H YES 
ASU = XSU ♦ 1 

C BUHP ITEfl COUNTER AND .CHECK FOR HAII^L'H NVrBER OF I TEflSGEPlTlSB 

3H5 I = 1 ♦ 1 

|Fd*l .LT. ITEHS) GO TO 320 

340 ITEHS s I 6EPLT19I 

00 370 L^l, NOAVG 
AVG(l) - 0, 

370 CONTINUE 

C SET FIRST ITEn FOR NEW GRID SETGEPLTIT2 

ITEWI I > = -lABSdTEHl m GEPLT1»3 

C FIND the type code IN THE xEYA ARRAvCEPL 1 HN 

389 LOC( n X 1 GEPIMTS 

1 * I GfPLTin 

R90 i - II GEPLTnr 

A s 1*1 GEPlTdB 


,GEPL*<T 

,GEP10T 

.GEPLOT 

GEPLOT 

SEPLOr 

GEPLOf 

GEPLOT 

GEPLOf 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOf 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOf 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOf 

GEPLOT 

GEPLOf 

GEPLOT 

GEPLOT 

GEPlOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPlOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOf 

GEPLOf 

GEPLOf 

GEPLOT 

GEPlOT 
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^20 If ilTyfCtn R£YA«J)) GO 10 
i » J-l 

ir < J .61. «) GO TO ^20 


stnuM 

G£fLT209 

G£fLf20t 

mCOmCT fTPf COCfC£PLl232 
6fPLT203 


LOCt*l » -I 6fPLT203 

UCT » lick'd) 

imifpcd) .N£. «Ev«ani go to 

HH 1 |AB!)(UCT} 

UCl * 1SlGN(Mt<lli0DE«^N)JTEn( m 
W bfMTE«6,M0) UCT, IfYPEm 

MO F0RMr(^8I.^HIU«^,l6,<i2,20H TYPE CODE IN £RR30> CEHT20$ 

GO TO 5%0 GEPiT20f 

C CKECR THE WGNITUCC OF Th£ TTEP fc*;r6EA5EPlT297 

^fcO IF C(«EYB(J*l) - KEV6U)I - UBS(ITE)^(im ^90,920,320 GEPLT299 

C INCORRECT I TEW NVP6£ft£EPlT20T 

990 LOCOt 3 -2 GCPtT2lO 

TACT s TTE^ai 

IFUTYPEM) .NE. REVAUm GO TO 990 
MN 1A»$(|ACT> 

1ACT % ISIGN(NXILN3CE*NN>,]TErtcm 
990 WRJTECt,500) lACT, ITYAE( I) 

900 FORP^AT l99I,9HITEW,tT,A2,lTH |$ OUT OF RANSEI GEALT212 

GO TO 9>i0 6EHT213 

C GC91T2I9 

920 L0C<K) s KEY9< JI»IA9SUTEPIM II 6EPLT2I9 

C SAVE FUNCTION TVFF tN0ETG£PCT2l6 

990 IG$<n 3 J 6EPIT2IT 

C BUWP ITEW NUW9EA AND TEST FOR iAST nEr5€PLT2l9 

1 » !♦! GEPIT220 

IF Cl .IT. ITEHSI GO TO 900 CEPLT22I 

e CEPLT222 

C START LOADING THE DATA FN:w THE HISTORY TAPEGEPIT223 

C GEPLT229 

C COMPUTE THE WAKTPIUH NUPISER OF RECORD SGEPLT225 

999 NTYRS s NSIZE/ItEHS GEPLT22£ 

HftlTE (6,5901 GEPLT227 

980 FORnAK lHt,R9I,90HPOSlTIONtNG AND READING THE MISTORV TAPE/I GEFLT229 

C FOS!TI:n the history TAPEGEPIT22T 

NTPTS 5 0 

I > 1 6EPLT230 

J 3 I GEPIT23I 

600 READ (IHSTRYI 1 9UFR(i ),lsl,NUROS > 6CPLT232 

C CmECA for end of DATA FUEGEPlT>33 

IF tBt*FR( n.LT.0.0) GO TO 790 6EPLT239 

C CHECK FOR RtOUESTCO START TIHEGCPIT255 

IF UUFRdl.LT.TAI 60 TO 620 6EPLT236 

GO TO 660 GEPIT23T 

620 IFIMPNT .EO. II WflnE(6,NUFI 9UFH( 1 I, TA 
60 TO 600 

460 IFIPIPNT .EO. II WRITCU.NVFI BUFR( I 1, TZ 
C CHECK FOR RtOUESTEO FINAL T |P'tGEPlT292 

IF leufRdl ,6T. TZ> IFINIS = I GEPLT293 

C PICK UP The ntH/lTYPE ARRAY DUANTIf lESGCPl T299 

DO 790 Lsl,ITEHS CEPLT2R5 

H 3 LOCdl GEPIT296 

C CHECK FOR ERROR |TEH:fPll297 

IF <f» .tr, 01 GO TO 7*iO GEPLT299 

690 IV(JI s lUfRlH) GEPLT255 

C 9UHP THE KY ARRAY SU93CR IPT?£PlT262 

790 J = J*I GfPLT2t3 

IfCNOPVG ,E0. 01 GO TO 752 

inSUFHdl AT. ASTRr-.0305 .Oft. DuFftd > ,GT, a;T3P*.0305> 

I 60 TO 752 


6EPL0T 

GEPLOT 

GEPIOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPIOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPiOT 

GEPLOT 

GEPLOT 

GEPIOT 

GEPLOT 

GEPIOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

C-EPlOT 

GEPtOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPIOT 

GEPiOT 

GEPLOT 

GEPLOr 

GEPLOr 
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' ' smoT 

' ecptoi 

CCPIOT 
SfPLOf 
C€PLOT 
CEPtOT 
CEPIOT 
6EPL9T 
fiCPLOT 
CCPLOr 
€CPLOT 
StPLOr 
StPLOT 
SEP13T 
CEPLOr 
6EPL0T 
6EPL3T 
GEPL3T 
SEPlOT 
fiEPLOT 
CEPtar 
6EP10T 
fiEPlOT 
6EP13T 
GEPL3T 
GEPLDT 
KEPL3T 
GEPtai 
GEPIOT 
EEPLOT 
GEPLDf 
GEPL3f 
GEftSr 
GEPUT 
GEPLOf 
CfPL3f 
GEPLOr 
CEPLOr 
GEPLOf 
GEPLOf 
GEPLOf 
GEPLOf 
GEPLOf 
- GEPLOf 
GEPLOf 
GEPLOf 
GEPLOf 
GEPLOf 
GEPLOf 
GEPLOf 
CEPLOT 
GEPLOT 
GEPLOf 
GEPLOT 
GEPLOf 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
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3n 

m. 

lU. 

3W. 

319. 

119. 

129 . 

in. 

321* 

m. 

321. 

125. 

12*. 

12?. 

128. 

129, 

139 . 

111 . 

132. 

331. 

331. 

115. 

m. 

137. 

336. 

Ilf. 

110 . 

1M. 

112 . 

111 . 

311. 

115. 

116. 
117. 
319. 
319. 
359. 

m. 

152. 

313. 

151. 

355. 

356. 

357. 

358. 

359. 

360 . 

361. 

362. 

363. 
361. 

365. 

366. 
36T. 
369. 
369. 
379. 
3?t. 
372. 
1T3. 
371. 


919 C^hTMtL'C 
952 CONflNVC 


C FIliO THE Mlirun d1DI«l6T£S6£nTl9l 

* * * fiCfUlfil 

^ ^ * fimt196 

t MCi TMt IHFUl 9*U‘tSGtPLti9T 

9B » 9L0U3 CEPITIOS 

97 » THim CEP17109 

« -1 CEPLVilO 

!9 <VT>99I HO.960,960 «Pimj 

960 YO . l.tIO WtTlU 

9T t -I.EIO CEPITM3 

980 K s !♦! EEPlTMi 

c CwtCi rOR ERR3R ITErsCEPlT^lS 

tr aocul .IT. 03 eo to I020 6EPITH6 

IF UVHIUI-V10( 1)1.67.0. on LY5 « I OfPLTllI 

C COMPARE Ml TH 7HE T«PE VAtUESC6PLTM9 


DO lOOO L^^K.NTOUJTERS 
99 a «M{NIUV<L),VBI 

1009 97 » AMR1UIY(U,YT) 

1020 I » !♦! 

IF II .LT. ITEMS) 60 TO tOiO 
JFINIS s I 
£0 TO 1060 
C 

1010 IF llTEmn .OT. 0) 60 TO 990 
1060 YLOOl 3 Vft 

9«I(3I » VT 

IF IJFIRIS .EO. 01 60 TO 910 


6EPLT119 

6EPIT120 

6EPLT121 

tKCCU FOR IBST ITEMGEPLT122 
6EPIT123 
6EPLT121 
6EPLT125 
6EPIT126 

CMECt FOR MEV 6RIQ SCTSEPLMIT 
(CPLT129 

6CPU135 

6EPLI136 

PRINT THE ITEMS TO BE nOTIECCEPlTiSf 
6EPLT139 


WRITE <6,1100) 

1100 FORMRTtlHl 11» -ITEM TYPE* 61 ♦RVO PLOTTING 5Y^»90L AND- 
I • DESCRIPTION* 291 -Y-MIN V-HA1 STATUS*/) 

JJ s ITEMS - I 
00 1290 m,jj 

1120 WRITE! 6, 1110) l,ITEfM | l.ITYPEU ),CTITLE5U J ),J=1,9 ),YlO< I ), 

1 yhki), loci Nil 

1110 F0RnAT<ilI5,51f5,2lA2,7XA6,tX9A6,611P2EU.3»m 
FlO<6,6,ITYTLSn,l)l s FLO( 30,6, ITV TlSd, I ) ) 

ITYTLSU,!) X 0R(AND(|TYTL5(l,n,01),O2) 

1200 CONTINUE 


1220 WRITE <6,12101 

1210 FORMATnHl,561,11HSTARTlNG PLOTS/) 


6EPLT153 

6EPLT151 

START THE Pl9Tf|NGGEPLTi55 
6EPLT156 
6EPLT157 


WROS s .9999 ♦ <TNTA1/TPG 

!R = 1 
ABSR s TA 

MCA s NBIAM <TITLEA,12) 

MPA 5 510 - 6»IYCA 
HP* s 276 
RC9 = 51 

00 1629 Nt,NGR0S 
KFINIS 5 0 

It r IR 
A8SL = A5SR 


COMPUTE THE NUMBE1 OF GRIDS RE0lM»CCGEPLTl59 

6EPLT159 

INITIALIZE THE ABSCISSA L lM| TSCEPLT160 

6EPLT161 

SEPL1162 

CENTER THE CASE TinEGEPlTlel 
GEPlT^n 
6EPLTH5 


START THE GRID SET L33PGEPiT«66 
GEPLN67 
GEPLT‘*69 

SET T*-E lEFT-HA^O I |Mf TSC:eplT‘* 69 
EFPlTlTO 
GEPlTi^n 


EEPL9T 

6CPLDT 

6CPL0T 

6EPL0T 

6CPL0T 

6EPL0T 

GEPLOf 

GEPtOT 

GEPLOT 

GEPLOT 

GEPlOr 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GtPlOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOf 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOf 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOf 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPLOT 

GEPtOT 
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371. 

3T8. 

3I». 

3B0. 

3BU 

3B?. 

383. 

38^. 

389 . 

386. 

30?. 

368. 

38», 

3^0. 

381. 

3 «. 

313. 

388. 

389, 
386. 
38T. 
388. 
338. 
800. 
801. 
802. 
803. 
8Q8, 

805. 

806. 
80?. 
808. 
808. 
810. 
811. 
812. 
813. 
818. 
815. 
8U. 
81?, 
818. 
818. 
820. 
821.- 
822. 
823. 
828 . 

825. 

826. 
82?. 
828. 
828. 

830. 

831. 

832. 

833. 
^38. 

835. 

836. 
83?. 


•6S8 * 86$l*1PG < * fp'. V*. ' t ‘ ’ 'SfPLT8?2 

I5W I 
kPVO 3 0 

CPU ClOVVn,663L,60S«,OClI,HElUW.8uni.30.0.!tRll 
16SL * i8T<iP6SL-cun/orm*flai 
I6SR * l8r<(«85R»0ai >/OEL?1«tELI 
|F(26Sl«0tLl .It. 68SL3 IB$L = ZtSL ♦ Otll 
lf(26S6-CEll .6t. OB$8> 26SR « 26SII - CCL1 
IFU5$R .£E. 10. 1 8u?^|£kiUM-l 

1000 Tue OOSCISSO VHUCS0mT8?3 

SC? TN£ UEM C0UNrCRCtPLT888 
J - t 6mT885 

set the CURVE CDUMTERSEPLT806 
* * » CEOIT88? 

ClCOR THE SVOTIUE 08RPYSGEPLT888 

00 1320 131^20 (EPLT888 

ItTLtOUl * eiPNK ftEPLT880 

nTlECU ) 3 OLPNX EEPLT881 

CPU EILPPVIOI CEPLT882 

iC 3 J GEPILT898 

00 1360 lsl,8 CEPLT885 

TlUEBtU 3 T|TLE5U,iC> 6EPLT896 


00 1320 131^20 (EPLT888 

ItTLtOUl * eiPNK ftEPLT880 

1320 riTLECU) 3 tiMt EEPLT881 

CPU EILPPVIOI CEPLT882 

iC 3 J GEPILT898 

3380 00 1360 lsl,8 CEPLT885 

1360 TlUEBtU 3 T|TLE5U,iC> 6EPLT896 

RC 3 FLt»6,6,imi.Sn,JC»l * 8B 

If (PlC.fiT.8) GO TO 1380 • TOO PPNV CURVES CEPLT888 

If UOtUC^n.LT.Ol 60 TO 1300 • ERROR ITEPt 6EPII889 

riO<0*30,TlTLE8< m 3 fl010,30>PSYmNC)3 

RPV 3 1005 - NC*18 6EPIT50I 

RP1AR X MC 

C RRItC THE SUBT|TtCSGEPLT508 

CPU PnC2V<HPI,RPT,l023,80,l,HCB,l,TlUE%,Nl3 6EPIT505 

1380 JC X JC ♦ 1 6EPLT506 

IF UTEPtiCl.GT.O) 60 TO 1380 GEPLT507 

RPy 3 1028 -(HPV*81 * 6EPIT500 

R/1PH X (hnM 8 1)4 16 
IRNOPVC .GT. 0) RPIAR x MhAR 4 16 

t ORAW THE 6RIOGEPIF508 

C SUBROUTINE OIOW CALCULATES CERTAIN ARGUnENrS FOR GRIOIV, SUCH AS 

C THE INCREMENTS FOR LINE SPACING OELX AND CELT. THE FOlLOMlNG 

C PROCEDURE ADJUSTS THE HAT AND HIN LIMITS OF ThE GRID TO 

C INSURE THAT THEY ARE INTEGRAL HUiTIPLES OF T**E INCREHENTS 

CALI OlDYVt2,YLO( J 1,YHI< J ),OELV,NEVUPBT,NunY,33.9, lERY 1 
YIOJ = INTUYLO(J) - DELY)/DELY)40ELY 
YHIJ X INTHYMMJ) ♦ OELY )/CEtY )*OELY 
IFlYLOi ♦ OELY .U. YLO(J)) VLDJ = YlOJ ♦ CELV 
IFIYMIJ - OELY .GE. VHIU)) VKIJ ^ VMlJ - DEIY 
YIOIJI 3 YLOJ 
YHIU) X YHU 

CALL SETniVI no, 20,50, NMAR) 

CALL SETCm 12,18} 

IFUABY.EO.IO) LA0Y x 5 
IA0Y = -LABY 

CALI GRIOIVf 2,ZBSL,28SR,YlO<J),VHIU J,CELT,CClY.NEl,NCY,LA9Jl, 

I LP8Y,NUHI,NUHV) 

C tPBEl THE A1ESGEPLI5I1 

1 = IGSU) GEPLTS12 

CALL RITE2Y( 856,9, 1023,89,1, 28, l,eCOT,Nl ) GEPLT5I3 

CALL RirEZV( 82, 399, 1023, 100, 1,28,1, BCDVl 1. 1 ),M * GFPIT5I8 

C W^ITE THE CASE TlTLEfvEPLT5U 

call RlTE2vtNPA,l095,l923,8O,l,«CA,l.TirLrP,NL} GEPLT516 

f CHECK *3R TOO MANY ri'Rv€SGEPLT5 1 1 

1800 fF{i;.GT.8> GO TO 1880 

f C**ECPt FOR ERROR 1TFHCEPLT5I8 

mLOC< JO I.IT.OI GO TO 1809 


‘ GEPL3T 

ceplot 

GEPLDT 
ECPLDT 
GEPLOT 
GCPlOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPlOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPlOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GCPLOT 
CEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPlOT 
GEPLOT 
GCPLOT 
GCPLOT 
GCPLOT 
GCPLOT 
GEPiOT 
GEPLOT 
GEPLOT 
GEPlOT 
GEPlOT 
GEPlOT 
CEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPlOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
GEPLOT 
, CEPLOT 
CEPLOT 
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1. 

C 

10<D THE 

RESPECTIVE ORDINATE VALL'f^GEI^Lf^Zl 




misw .CO. 01 60 TO K39 

(f • 1 •. 

/6CPL0T 



33 = 0 

< ' t ’ ‘V 

6CPL0T 



00 K03 K»=a.«lT7f^S 

1 ' ■ » 

GEPtOT 



L s IT£H$«KK-|) 9 1 

' ' ‘ 

6EPL0T 



IftrKK 


6EP10T 



Ifltvai .6T. «BS^>60 to K05 


6EPL0T 



JJ = JJ ♦ 1 


GEPcar 


K03 

HBSUJ> - XVILI 


GEPLOr 


X08 

K7TS ; 3J 


GEPLOr 

M«, 


1SU s 0 


GEPLOT 

M<>. 

K09 

CO K20 1?1,<PTS 


6EPL0T 

^53. 


R 5 ITCfla«( 1L*1-2UJ*1 

6EPI.T521 

GEPLOT 

^51, 

K20 

Q0DU1 : IV(n> 

6EPtT52< 

GEPLOT 


C 

IflBNCH TO The OPPROPRKTC Ptonv SLWuTKE C»UGFPU525 

GEPLOT 

^53. 


CALL eopionm 

6EPLT526 

GEPLOT 

^55^, 


60 TO 1520 


GEPLOT 

^55. 

C 


TOO HANV CCRVESGEPLT528 

GEPLOT 

M6. 

l<<3 

WRITE U.KfcO) <TITLE5(L,J),L=l,91 

6EPLT529 

GEPLOT 

45T. 

K80 

FORflAT< 157,eMSHlPPlNG,5I,9A8,5l^28HT00 

KAWV CL‘R%ES ON This grid) GEPITSOO 

GEPIOT 

<*50. 


60 TO 1550 


GEPLOT 

^59. 

C 


ERROR ITEr‘CEPLT532 

GEPLOT 

460. 

Kao 

WRITE (6.15001 ( nTLES(l,J),Lsl,91 

GEPLT533 

GEPLOT 

^61, 

1500 

FDRKATC 15X,8HSKIPPING.5X.9A6.5X.21HTh(S 

lien TS IN ERROR} 6EPLT53< 

GEPLOT 

W. 


60 TO 1550 


GEPLOT 

^3. 

1520 

WRITE U,15<0) nmE5a,J>,L=1.9> 

GEPLT536 

GEPLOT 


15<0 

FORHATl l5T.flHPL0TTlN6,5X.9A61 

6EPIT537 

GEPLOT 


C 

BURP 

THE ITEM AND CCRVE COvNTER3SEPLT536 

GEPLOT 

n*. 

1550 

IF(hl3AV6 .EO. 01 €0 TO 1575 


GEPLOT 

«7, 


1FU .WE. 1AB$( 1TP)AVG(KAVG«im GO 70 1575 

6EPL0I 

W. 


NAVG : WAVG ♦ 1 


GEPLOT 

%6*>* 


|F(N0AVC .EQ. WAVG) WOAVG s 0 


GEPLOT 

^70, 


JF( ITr.AVGtrjAVGl ,GT. 01 60 TO 1575 


GEPLOT 

^71. 


Tftl^l.CT. <) GO to 1575 


GEPLOT 

^72. 


IF(L0C<J + 11 .tT. 0) GO TO 1575 


6EPL0T 

^73, 


HZ - FLD16,6,TT7TlSa,Jll - <7 


GEPLOT 

^71. 


K = K ♦ 1 


GEPLOT 

^75. 


TITLE6( 1 > s PSVf\(K) 


GEPLOT 

^76. 


TlTLEfi(2) : 6HAVERAG 


GEPLOT 

<177. 


TITLE8(31 5 6HE 


GEPLOT 

^78. 


00 1553 L=<.20 


GEPLOT 


1553 

TITLEB(L) s fcH 


GEPLOT 

4S0. 


PTPy =1005 “ I0*NC 


GEPLOT 

^81. 


CAU R|rC2V(NPX.NPV. 1023.90. I.NCB.l.TITLEB.WL) 

GEPLOT 

^82. 


ISw = 1 


GEPLOT 

^83. 


DO 1556 L=l.NTPT5 


GEPLOT 



ABSUl = ABS( ISTART^Ll 


GEPLOT 

^05. 

1558 

ORO<D = AVG(WAVG1 


GEPLOT 



HJPIS = NTPTS 


GEPIOT 

^87. 


CALL GOPLaT(X) 


GEPLOT 

^88. 

1580 

CONTKUE 


GEPIOT 

<89. 

1575 

3 = 3 9 1 


GEPLOT 

<93. 


K = K«l 

6EP|.T5<0 

GEPLOT 

<91. 

C 


CHECK FOR END OF I TEhSGEPlT5< 1 

GEPLOT 

<92, 


IF U -LT. ITErtS) GO TO 1580 

EEPtT5<2 

GEPLOT 

<93. 


KflWIS - 1 

GEPtT5<3 

GEPLOT 

<99. 


60 TO UOO 

GEPlT5« 

GEPIOT 

<95. 

c 


CHECK FOR NEW GRICC-FPIT595 

GEPLOT 

<98. 

1580 

IF ( 1 fEPf 31 .GT. 0) GO TO KDO 

C-tPtTSRt 

GEPIOT 

<97. 

IfOO 

IF (<F[N15.Ea.0> GO TO 1300 

C-EPIT597 

GEPIOT 

<90 . 

c 


REFERENCE THE NEW G<10 3E T?*-? 

GEPL3T 

<9?. 


II - in 

Cr;PlT5«i9 

GEPIOT 

5C0. 


ABSL = ABSR 

CEPIT550 

GEPLOT 
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1 

U20 CSNTIHUE 

5W. 

IBB ^ 0 


U^O CALL rtlflAV(Q) 

SO^. 

IICASC > MCASE « 1 

505. 

S3 T3 250 

50&. 

S«t> 


i (. f n 

' ’ SfFLWr ’ *■’ 

SEPL3T 


«EfLT552 

SEPLOr 


CrPLT551 

BEPIOT 


CEP115S5 

SCPL3T 


SEP1Y555 

6€Pi9Y 

r ' » I 

CEPlT55« 

SEPL3T 
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gopiot G3Pi,or., fiOPUT,. Gqf.sat, cqpLpi ^ . WPtaT 



I. 

t. 

1. 

9 . 

«. 

I. 

e, 

9, 

10, 

tl. 

t2. 

13, 

14, 
19 , 
U. 
IT. 
19 . 

19 . 

20 . 
21. 
22. 
23 . 
29 
29 
29 
2T 
28 

29 

30 
3 ) 

32 

33 


SUBROUTINE CSPLOUNSTUT 

OirENSlON RSTm 50 >,OSTm 50 I.BUFRC90DO>,«5< 1 l,ORC< 1 1 
COw^iON NPTS.TPG.BUFfl 

tOUlVAlfNCC tBUFRU>,9BSC m,<BUFRt2001 l,ORO£ Ml 
integer ISYn(2) 

DRTB ISVn/4Hl239 ,9H / 

PNP X NSt«*2 • 9 

OT X 9BS<«?TS1 - RB5£ 1 > 

HP X FHP • OT/TPG • 1.5 
UPP = NP - I 
f = KPTS / NPP 

Bsrh< 1 > X PBS( n 

osvnt ll X ORmn 
PStPKNPI = PBS(NPTS) 

OStWNPl X ORD<NPTS> 

KK r D 

00 10 fx2,NPP 
KK = KK 4 K 
1X5NXV( fltSOtK)) 
lY=NyV(ORO£KK)> 

CPU RITE2V( n,IV,10^3,90,t,l,NSyP^,ISVPl,NL > 

10 CONTINUE 

IXA X NXV( AGS( in 
iyaxnyvcoro< 1 n 

00 19 t=2,NPTS 

IXB 3> NXV( ABS( 1 n 

1VB =NYV(ORO( 1 M 

CALL IINEVUXAJVAJIBJYM 

IXAxlXB 

lYA X ive 
19 CONTINUE 
RETURN 
END 


60PL0T 

GOPLOT 

GOPLOT 

GOPLOr 

GOPLOT 

GOPLOT 

60PLDT 

GOPLOT 

GOPLOT 

GOPiar 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 

GOPLOT 


i 



19~V 


I...,....™™.. 


I. SV«R3UT|IC£ (4CftTCR(Q^QMT«lOOE.TS£ll«T3ll.nFf I 

»- C 

1. IH TSEK .tf . lOH I ea Td lOQ 

4, imStN .GT, TOFF) 63 T) |90 

5. Q X Q « OMTvXCDe 

** RETURN 

f. 109 KODE s 0 

I* RCTURU 

f. 100 KOQE s 1 

10 . B 2 0 * QHT 

11, RETuRH 

II. END 


' ii> NEAfCB 
HEATER 
HEATER 
HEATER 
HEATER 
HEATER 
•ACM HEATER 
••-I . HEATER 
HEATER 
HEATER 
HEATER 
HEATER 
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1. * SUftH3uT|K£ »»STfttlPR,Vf,y,TtNC» 

t. t 

). oif^NSiON riun, vpcn, vtit 

c 

«. /rw / T(l» 

4 . COW'ON /POINTN/ L»<3DE 

T. /tSPACt/ MTH« HEir(tt 

8. /nic?ti/ cw I » 

4. C0"^3*l /MTU / HEAD£»<m 

10. C3""0i* /Ol^ENS/ H*^0, msi 

11. c 

12. IQUIVHCNCC (KPn.PAN)p <NVPpVPin« mu.MI 

n. c 

l«, 04T4 14/0/ 

19. om u / 0/ 

14. 0AT4 IT /23/ 

11, C 

18. C 

10 . OT 5 cawm 

20. fRN 3 ffl (I) ~ 

21. VPN 3 VP <IJ 

22. WN 3 V (t) 

23. |f(KK .or. 0) 03 T3 10 / 

20. IFINPR .IT, 11 NPR £ 1 

29. IfUrvP ,LT, 11 NVP s I 

24. IfUtfU .IT. 11 NU s I 

21. iFClNm .EO. 01 CALL NNRtAOC 1 1 

2«, iirtUTe<Ln HEADcn, m ?, wu, u,u, msl, 

20. 1 (NEXTUNODEM )p|3l,NSL1 

30. T|nE2 = 0.0 

31. TIP£1 3 COM m CONm 

32. CALL «STTP(TinEI ) 

33. 44 3 I 

30. 60 TO 90 

39. 10 tim 3 TI/1E2 ♦ OT 

36. IF(C0NM )M. 000001 .LT. C0NO11 GO 10 12 

31. GO TO 19 

18. 12 IF(Tlf\E2 AT. TlNC 1 GO TO 90 

39. IFUONdl .IT. TlMEll GO TO 90 

00. 15 TlPiEl = C0N( I 1 

01. T|flE2 = 0.0 

02. CALL HSTFPCCOMm 

03. IFUaNm*!. 000031 .IT. COfVOn GO TO 90 

00. 20 CAU K5TrP(-C0N( m 

05. 44 r 0 

06. END FILE Li 

or. 50 CONTINUE 

08. RfTt'flN 

09. C 

90. C 

91. SUBAOl'MNE HSTTPiXTlftEl 

92. C 

93. wftlTIcm ITinE, CPA((*lM3l,N?ft>, < VPI I *11, 1 = 1 , 61 VP 1, 

90. I IV Ct*tl,l3l,Nl/ I, CT II )J = 1.NSL1 

55.. RETURN 

56. ENO 


r^NSTAT 


USTRf ♦ ' 

M9TRf 

MSTAV 

MSTAV 

HSTAT 

ASTRV 

KSTRT 

HSTAT 

HSTAf 

HSTAV 

MSTAf 

HSTRV 

HSTAV 

HSTAl 

HSTRV 

NSTRV 

HStRV 

USTRY 

MSTAV 

MSTAV 

MSTAV 

HSTRV 

MSTAV 

MSTAV 

MSTRV 

HSTRV 

MSTAV 

MSTRV 

MSTAV 

MSTAV 

MSTAV 

MSTAV 

HSTflV 

HSTRV 

MSTRV 

MSTRV 

MSTAV 

MSTRV 

MSTRV 

MSTRV 

MSTRV 

HSTRV 

MSTRV 

HSTRV 

MSTRV 

MSTRV 

MSTRV 

MSTAV 

MSTRV 

HSTRV 

Hsray 

HSTRV 

HSTRV 

MSTRV 

HSTRV 

MSTAV 
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1 










¥lCht 

HlCKt 

HlCfHT 

MXCItT 

HXCliT HIC«T 

NICfir 

KICHT 

ntCHl MIC«T 


1, 

SUtO^uim ¥ttHJ m,«2»f3»T4,«5,l4,l7«ia,ltl 


1 ttlCMT 

I. 

C tfitfSIS Sf C0U4TC4 FLOU KE4T EVCHAMQER3 


HI€«T 

s. 

OI^MSIOM CP(2t. fRtZi, KCP(2>, TINC2I, TOUTtll^ ^f(2l 


mcnT 


COUltHEIiCE (NCP.CPI 


fflCHT 


C 


ttitiir 

». 

UK s It 


Micur 

?, 

rtm « 12 


MICifT 

t. 

F4(2) X 13 


¥ltHJ 


CPU 3 < 14 


vftm 

Ifi. 

CPI2I s 15 


MICMT 

tt. 

tl4( n X 16 


ttlCMT 

t2. 

nut 2) 3 IT 


MCnr 

n. 

TJUI* n X 18 


HXCHT 

14. 

I0l/1(2> X It 


Ml CUT 

15. 

D3 to 1x1,2 


MICMT 

14. 

tF(FR( 1 } .IT. 0.01 or TO 100 


MICMT 

IT. 

to COMTINUC 


mxcnt 

It. 

IFllcCPtn ,IT. 1 ,04. mCPU) .6T. 650001 CO TO 3 


MKCNt 

It. 

T4VG = 0.5<(TlWn*TOuT(m 


MIC«1T 

20. 

CPU 0l0EGI<tPVG,T4,tP<tn 

. 

MICNT 

tl. 

3 |F(NCP(2) .LT. 1 .on. NCP(2> .GT. 65000) 60 TO 4 


MICHT 

22. 

TPV6 = 0.5*(Tlflt21-T0oT{2l) 


MI CUT 

23. 

CPU mOEGHTPVC,l5,CP(2n 


MICK^I 

14. 

4 CONTINUE 


MIC4T 

25. 

WCPU) s FR< l)«CPm 

•H2W 

MICM1 

24. 

liCP12> X F«<2)*CP<2» 

•NCM 

MICN? 

IT. 

IF< IPBSINUP) .tC. tt95t .PKO. IPOS(NUP) .6T. 0) 


MICMT 

28. 

1 CPU D2DE01<Fn<n,fR(2>,n,UP) 


MXCMt 

2t. 

IS X 1 


MXCIIT 

30. 

IL > 2 


MXCNT 

31. 

tFtVCP( 1) .L€. 4fCP(2H GO TO 20 


MXCMT 

32. 

IS X 2 


MXCNT 

33. 

IL X 1 


MXCNT 

34. 

20 ITCPnPT X WCPMSl/WCPUL) 


MXCNT 

35. 

IFuiCPnpT .GT. .001) GO TO 30 


MXCNT 

34. 

CFF X 1.0 


MXCNT 

3T. 

GO TO 50 


MXCNT 

38. 

30 Ifl^CPHPI .LT. .955 .OR. WCPRPT .GT. 1.0011 GO TO 40 


MXCNT 

3». 

IFF X l/P/(tfCP(l5)*UP) 


MXCNT 

40. 

GO TO 50 


MXCNT 

41. 

40 c = nP(-L»p/wcpns) ♦ up/wcp<un 


MXCNT 

42. 

CFF = n.-E)/( l.*WCPRPT«E) 


MXCNT 

43. 

50 TOUTIIS) X TINUSl - EFFMTIWn 5 »*TIW 11 )) 


MXCNT 

44. 

TOUfUL) X jmiu ♦ wrPRPT*(TlN(IS)-TOuTllSn 


MICNT 

45. 

18 X TJUTM) 


NICNT 

46. 

It X T0UT121 


MICNT 

47. 

PCTURF4 


MXCNT 

48. 

100 VnnE(6,10) 1 FR( n 


MICNT 

4t. 

101 FOflnPTUHO UlUHO//' The WECPTIVE flow RPTE‘E15,8,< is wot PLL3W 


MXCNT 

50. 

XEO. EiECuTION TERMK^PTED IH Si<BROUT|P«E H 1 CMT*//|X |31t !»«•)) 


MXCNT 

51. 

CPIL i!LKBCP 


MXCNT 

52. 

CPU niT 


miCnT 

53. 

C40 


MICNT 
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i ™ ... ... ™ ™ 


t« 

i. 

n. 

I, 

f. 

10. 

11 . 

II. 


5U0R3uriilC 

€ MRLVStS OF C»3^S FLOW hW ClCHA^GEftS 

otRCNSian cpm, fr<ii, mcPdi* Taynii,. ywii 

€0unrALE^»CE <NCP,CPI 

VA s n 

FRl!) = 12 
FR(I) s X3 
CPU ) C tH 
cp<n - 15 
TlDf 1 ) £ 16 
TUf< 2> = 17 


U. TOUTtn = 18 

IR. T0UT<I)5 18 

15. 03 10 Ul,l 

16. IFtFR(f) .LT. 0.0) 60 TO 100 

17. 10 CONTINUE 

10. IF(HCPCl) .CT. I .OR. RCP<n .6f. 65000) 60 T0 3 

15. T6V6 = 0.5*C7INni»Ti)l»TM)> 

10. CALI OlDEGKTAVG^XN^CPd I) 

^1- 3 IFTNCPdl .IT. I .OR, HCPTI) ,GT. 650001 60 TO 6 

11. TAV6 c O.SMnWD-TauTd)) 

23- CPU OIDEGK TftVS,X5,CPd)) 

25. 6 CONTINUE 

15. wcp( n - FRc n.cp<n 

26. WCP<2) 5 FftC2»*CPm 

21* ini68S<NUA) ,IE. 09709 .AND, lABS(Nt'A) ,6T, 01 

26. I CALI D2DEGt(FR[U,FRl2),M,tJA> 

29. IS = I 

30. It = 2 

31. IF(WC?m .LE. WCP<I>) 60 TO 20 

31. IS = I 

33. IL = 1 

35. 20 fc^PRAT = WCPT 15)/WCP< It ) 

35. IFIWCPRAT .6T. .0011 60 TO <30,50,50,60), RODE 

36. EFF c 1,0 

31. 60 TO TO 

38. 30 E = Em -UA**.78*WCPMS>**.22TUfP<IL )) - 1. 

39, EFF £ I, - EIP(E*UCPML)*UA**.2Z/WCP< lSl**l-22) 

50. GO TO 70 

51. 50 UA$ £ UA^UCPT IS) 

52. UAL = UA^MCP(ll) 

93. EFF r UAS/0)AS/t 1 ,-ElP< -UAS ) 1 ♦ UAL/( 1 .-EIP< -I'AM > * 1.) 

55. 60 TO 70 

55. 50 EFF £ n.-E5IPl-UCPRAT)*n,*ElP<-L'A/U'tPMS>)n/W'rpRAT 

56. GO TO TO 

57. 60 EFF 2 1. - EIP( -WCP( IL >/UCPUSn*( I.-E3IP< -VA/WC^c n iij 

58. 7C TJuniS) = TINCIS) - EFF*< TIN( 151-TIW It n 

59. TOUTUt) £ TINCII) ♦ klCPRAT»( TINM S )-TOuT< IS ) 1 

50. 18 £ TOUT! I ) 

51. 19 r T0l<T(2 1 

52. RETURN 

53. 100 WRITEU.IOl ) FR( |) 

55. 101 FOflf'ATdHO 13IUH*)//* THE NEGATIVE FtOu 5ATE*E15.8,* IS NOT AU3w 

55. FED. EJECL'TION TIRniNATEO IN SUBROUTINE NxCH^S*^/!! 131£lK«n 

56, CAU ilKBCA 

5T. CAU EXIT 

56. END 


•NEU 

vNEtt 


»f3WS 


)|1CR3S 

)IXCR0S 

N1CR3S 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

ItXCROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 

MICROS 
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Wfr Hitrf Murr hieff hieff muff hieff huff huff hieff 


1. Sue«OVTlHE hieff 

*. C AMLYSIS 3F heat E1CHAN3ERS wUH EFFECT [VEliESS 6IVEH 
3* OI«EHSiaH tPtn, FA(2l, TINI2), HCPtl) 

lauiYHEHCE UEFF.EFFJ, CHCP.tF) 

A, IFF s 11 

f. FA(n * It 

• « FH(2) S 13 

3- cp<n s 

10. CP(2) 1 IS 

11. TlNCn s u 

12. TINtZl s II 

13. T9UTI 1) z le 

1%. IOUf<2> 5 1? 

19. 03 10 1=1,2 

1«. IF(FR<i> .IT. 0.0> 63 73 100 

I?. 10 C3HTrHL‘E 

10* IRNCPUI .IT. 1 ,0A, NCPni .67. «9000> 63 TD 1 

i9. TAV6 = 0.9«(Tm(lW3UTI m 

10. call DlOEGKTm.I^, CPU >) 

11. I 1F(HCPC2I .LT. I .OR. HCP(2) .67. 69000) 63 73 A 

12. 7AVG = 0.5MT1N(2)-T3UT12M 

13. CALL OlOEGM TAVG^I5,CPt2)> 

1^. 6 CORTIPitlE 

15. MCPU) = FRU)*CPm 

lA. VCP(2) ? FR(2)<CP(2) 

17. IF( IAB51HEFF » ,LE. 99999 .RNO, IA0$(HEFF> .67. 0) 

!A. 1 CAU 02DEG1(FR{ n,FR< 2),I1,EFF) 

19. IS * I 

10. IL X 2 

II* IFIWCP(I) .LE. tfCP<2n 63 TO 20 

12. IS X 2 

13. U X 1 

i9. 20 TOUT! IS) r TIN(IS) - EFFM TINt IS I-TIW ll )) 

15. TOUTItL) s TIHML) ♦ UCPMSl/UCPClL )»( 7|Al( IS)-73U7< ISM 

6. 10 2 T3UT< I ) 

7. 19 = T3VT<2» 

0. aeturm 

9. 100 kmiTE< 0,101 ) FRO) 

0. 101 FORriAKlHO I31(1H«1//' THE NEGATIVE FLOW RATE*E15,0,* IS N3T ALLOW 

1. UO. EIECUTION TERPIINATEO IN SUBROUTINE HIEFFV/tX I3HIM#)) 

2. call klFOtx 

3. CALL EXIT 

9 . END 


•NEW 

#HEW 

«NEW 

••-I 


HIEFF 


HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 

HIEFF 
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5U««H'TIHE HIP»R 

AMRIYSI^ OF PARAUEL FUdU HEAT ElCMA^SEftS 

DlnCNSI3il CPiin FRWi. NCf(2T« tJUT<2U h^Pl2l 

laUlVALlPfCE tHUA.UAl, IKCP,CP» 


UA : II 
lAU ) : 12 

FR< 2 ) = n 
fp< n = M 

CP(2> = 15 
TIKI n s 16 
TIH 12 » = 17 
iauT( n 3 18 
TawT(Z> 5 19 
00 10 Ir1,2 

IFtFRC 1 I .IT. 0,01 60 TO 100 
to C0»^TtN<JE 

irtNCPUl .IT. I .OR. WCPUl .GT, 65000 J 60 TO 3 
TAVG 2 0.5MTIN{ I l*TOUTm> 

CALI 0IDeGUTAV5,11,CPU>> 

3 IFCNCP(2) .IT. 1 .OR, NCPt2l ,GT. 65000) CO TO I 
TAVG r 0.5*mN(2)-T0un2n 
CALL nOEGUTAVG,l5,CP(2n 

6 zmmi 

WCPI I > 2 FflU MCPI I ) 

WCP<2> s Ffll2)*CP< 2) 

imA8S(NUA) .LE, 99999 .AND, IAE$(N*JA> .GT. 0> 

S CALL t)20£Dl(FR< n,Ffl(2>,*|,UA) 

IS 2 1 

IL 2 2 

IF<yCP(n .LE HCP(2)> GO TO 20 
IS 2 2 
IL 2 \ 

20 WCPRAT T UCP( fS)/UCP( III 

inwCPftAT .GT. .001) GO TO 30 
EFF r 1.0 
60 TO 50 

30 EFF 2 M.-E1P(-UA/WCP( IS )'L'A/UCP( tl )))/<!. ♦WCPRAT) 

50 TOUT! IS) 2 TimlS) - EFF»C T INI I S )-T! N( IL ) > 

TOUT! Ill = TIN(IL) ♦ WCPRAT»( f |N(IS )-TOuTUS) I 

18 2 TOUUn 

19 2 T0UH2) 
flEIuRN 

too L'RITEU.tOI > FR( n 

101 fORnATIlHO 13UIH*)//* ThE NEGATIVE FLOW RATE‘E15,8.* 15 NOT ALLOW 
lEO. EjECUTION TERniNATEO IN SUBROUTINE HIPAR*//lI l 3 UlH#n 
CALL wuecF 
CALL EXIT 
END 


HiPAfl 


NIPAR 

HIPAR 

HXPAR < 

MlPAR ’ 

MIPAR 

MIPAR 

NTPAR 

MIPAR 

MlPAfl 

MIPAR 

MIPAR 

MIPAR 

MIPAR 

MIPAR 

MIPAR 

MIPAR 

MIPAR 

HIPAR 

MIPAR 

MIPAR 

MIPAR 

HIPAR 

HXPAR 

MXPAR 

MIPAR 

HIPAR 

MIPAR 

MIPAR 

MXPAR 

MIPAR 

MIPAR 

MIPAR 

MXPAR 

MIPAR 

MXPAR 

MXPAR 

NIPAR 

MXPAR 

MXPAR 

MXPAR 

MXPAR 

MXPAR 

MXPAR 

MIPAR 

HIPAR 

MXPAR 

MXPAR 

MIPAR 

MXPAR 
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I. .. ... 


SVKR3VTINC UhCCtM » 

C 

C0wc«l /fllCOKI/ Wll 

C . • - 

c 

tr(«(23>«i .$1. .on, miny .ta. ty chl wiin 

tM 28 l S H[ 2 S) • I 

•ErtRH 

CKD 


lUttCl ‘ ilMECR ’ llWCi 


ilNECK 

IINECR 

IIMECK 

LIflECK 

imtcv 

LltiECR 

LllvECff 

LI«(€CK 

LlKiECK 



A- 68 



IfMAV [ I' 


tJttRV 

IINRV 

lIRftV 

LINAV 

LINAtf 

tiNRV 

LtlVR¥ 

tINflV 

IINAV 

ItNRV 

ilKAV 

tIMV * 

ilRRV 

L1NAV 

tl^RV 

LIRAV 

IINRV 

illURV 

Lt«<AV 

IIKRV 

ilhiM 

UNftV 

LtNRV 

UNRV 

ttigRv 

LtNRV 

Liiynv 

LINRV 

IIMRV 

LINRV 

llftRV 

limv 

LINRV 

LINRV 

LIMRV 

UNRV 

LINRV 

LINHV 

LIMAV 

tl^RV 

LIKR¥ 

LINHV 

tlMRV 

tlNR¥ 

IINR¥ 

Llwa¥ 

LINR¥ 

lIKfRV 

ll^av 

LIMRV 

UNR¥ 

UPI}R¥ 

LIK{RV 

ll^RV 

LINRV 

LIN3V 

iIRRV 
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‘ Llirnv 

' iiifflir 
» ' uw*<v 
LliiRy 
iriffiv 
IIIKRV 
UNRV 
UWi 

LlirRV 

ilflRV 

LllfRV 

iINRV 

LllVRV 

LKVftV 

LID^RV 

LIRRV 

LIMRV 

ilHiRf 

IINRV 

ilNRV 

LtNRV 

UNRV 

tlNftV 

ilNRV 

IINRV 

LINftV 

IINRV 

IINRV 

IINRV 

IINRV 

liNRV 

llNRV 

IINRV 

LINRV 

IINRV 

IINRV 

IINRV 

LINRV 

IINRV 

IINRV 

IINRV 

LINRV 

IINRV 

IINRV 

LINRV 

IINRV 

IINRV 

tlNRV 

IINRV 

LINRV 

IINRV 

IINRV 

LINRV 

IINRV 

IINRV 

IINRV 

IINRV 

IINRV 

IINRV 

IINRV 

IINRV 

IINRV 
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150. 

151. 

152. 


t fUlUT BCCIMI FOIHT 

IW C*Ll BlUIVUlfJV, 1000^50^1, |J,lH..ftlA$n 
1Il;|tl«lO 

HOCsl • ■ 

ircNDS.iC.Ol 60 TO 10%6 
HOC = KOS*l 
60 TO I0^» 
tf(^05.C0.0l GO TO 
HTT s HBSlNOSl 
00 lO^T I^GM,«TT 

c imiff rcBos m mtiso« 

mi K]rc!¥(iajvjoao,5o.i.i.i,iMO^itt«sn 

11fr|ll»|2 
I O'*? CON TIME 
10N5 CONTINUE 

* MIItT TAAUIUG NUPFRHS 

cm »lTE2¥MII,|y,0000,T0,|,l,*l0C,BCCWO,NlASri . 

I0«5 ircSf.OT.O) 60 TO lOfrS 

PfllUT ^imiS SIGN 

cm RlT£2¥t lRIN,ly^3O0O,T0jj,l^tM-,NtaST> 

1068 CONTI Nt'E 
lOTO lYNilYN^rCOUNTMM 
GO TO N70 
1100 DEUAt-DELTA 
mo CONTINUE 
1160 CONTINUE 

37^0 CONTINUE , 

CAU LVIOTHI I STAY I PISC* AA 

RETU6N 
END 


LlMAV 

U«RV 

IINAV 

LINRV 

LlNRtf 

tIN«¥ 

LINRV 

lINfly 

liNRV 

ilNRV 

lINRV 

ilNRV 

iINRV 

UNAV 

iINRV 

ilNRV 

IINRV 

LINAV 

ilNRV 

liNHv’ 

iiNRV 

LINHV 

iincnv 

ilNRV 

IINRV 

iiNRV 

ilNNV 

UNRV 

LlNRV 

iINRtf 
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na ftCM ■ RCjn' " 'f»co«ft waMi' ^ ncm 

, . r- f ’ ■ * 


1. 


KBUnU 27 09T9( 30001^ «L2HMI9» 

FC0R8 

1. 


OlPEKSlON IST9RT(T),IST0PC7> • 

PCORP 

3. 


D1PE9&I3H «DD( 1 > 

DC ORB 

n. 


D9T9 JST99T, iSfJP, «D/2I*0.7 

nCORB 

$. 


OATS ALPHA /lHA.tHB.tHC»tHD,lH9»ltt6^tME,tHP^|l4G 

dcorb 

4« 

1 1«L,IHP/ 

DC ORB 

T. 


vniU{6,3) 

DCORB 

«* 

3 

F3RftATnKn0l*DuTPU1 Toaw CaMlW SOwTINE*//! 

DC0R8 

«. 


ACAC(5J20I NTAPE. lU^lT, KT, 9ZUU, iHt 

DCORB 

10. 

120 

r09fAT(6I9> 

DCORB 

11. 


tFiUTAPE .fO. 0) GO to 200 

DCORB 

». 


\f{ «l .EQ. 01 KT 13 

DCORB 

n. 


IF<IL'9ll .EO. 0> It'NiT s 7 

DCORB 

1^. 


KEWIAD FT 

DCORB 

19. 


lOOEl = 0 

DCORB 

U. 


IFiNtAPE .LT. 0) FOrei * 1 

DCORB 

IT. 


UTAPE s lABSCNTAPEl 

DCORB 

IS. 


trtCSDEI OJ REaD^5,27) USTAftTMl, 1ST3PM >, l*l,liTAPEI 

DCORB 

19. 


|F(K3CE2 .KE. 0) AEADC9«190) AOD 

DCORB 

20. 

190 

rOfiT^flT(FFlO.O) 

DCORB 

21. 

IT 

FOflT^AH 19F5.3I 

DCORB 

22. 


00 18 1 2 !,N1APE 

DCORB 

n. 


H=0 

DCORB 

29. 


t 2 L ♦ ft’lUT '■ 1 

DCORB 

29. 


REWIND 1 

DCORB 

24. 


READ < 1 1 RBUFR 

DCORB 

27. 


IF a .NE. 1) GO TO 8 

DCORB 

IB. 


WRITE <FT> NBUFR 

DCORB 

29. 


WTOTAl = 0 

DCORB 

30. 


DO 6 32)7.17 

DCORB 

31. 


KTOTAL 2 AITOTAL * RBUFRU) 

DCORB 

32. 

6 

CONTINUE 

DCORB 

33. 

9 

READ m TlnE,IDATA(R>,Fsl.NTOTALl 

DCORB 

39. 


TIRE s TIRE ♦ RGOU) 

DCORB 

39. 


IF (TIRE .IT, 0.0 .AND, 1 .NE, NTAPE) GO TO 19 

DCORB 

36. 


IF (TIRE .LT. 0.0) GO TO 10 

DCORB 

37. 


IF< TirE-«STAftT(L)I7. 

DCORB 

3d. 


1F< XST0PIL>)33,31 

DCORB 

39. 


lF(TlRE-lSrOP(L M33. 

DCORB 

90. 


TIRc=-T|RE 

DCORB 

91. 


ira-NTAPE >15,10, 

DCORB 

92. 

33 

HrR-1 

RCORB 

93. 


IF(R .CT. 0> CO TO 9 

DCORB 

99. 


R 2 INC 

DCORB 

99. 


WTIRE 2 TIRE 

DCORB 

96. 


WR|TC(FT> TIRE, ( DATA{ A I.Ksl .NTOTAL ) 

DCORB 

97. 


IF (TIRE) 12,7,9 

DCORB 

9S. 

9 

READ (l> T1 rE.IDATA(A >.K2|,NT0TAI) 

DCORB 

99. 


TII-E 2 TIRE ♦ ACO(L) 

DCORB 

90. 


ifcTiRE-iSTAflm ne. 

DCORB 

91. 


JFITlRE-SflRE 121,9,10 

DCORB 

92. 

21 

WflITE (6,291 

DCORB 

93. 

29 

rORRAT ( 7/l0n9HTAPES AflE NOT IN THE CORRECT ORCERl 

DCORB 

59. 


CALI EMT 

DCORB 

59. 

12 

END FILE KT 

DCORB 

56. 


REWIND KT 

DCORB 

97. 

19 

REWIND 1 

DCORB 

90. 


TTIRE = WTlPiE 

RCORB 

99. 


WflITE (6,201 1, ITIRE 

rcorb 
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10 FaRPATtm ‘^HTHPC 13, lOM ENDING NT F10,5, HAS BEEN IDAOEO flCOnS 

1 DN Nt« TAPE./ 1 ' '' '' ' ‘ 

18 CHHUnvl NCONB 

IFIKT .ST. 15 » SO TO 200 "CO/'B 

WOMENS, 10) NTaPE, AlPHAdtTI ftCO^B 

30 FOnhAT aK0l0l9HDAfA FR0n|2,ieH PLOT TAPES HAS BEEN COHBINEO ON i>N HCOH» 

UT A2» HCOHB 

too STOP NCO/i$ 

End ncohb 
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1. 



SUBR3t'T|KiC 

‘ irsD 

1. 



01t)£NSIJ«l A(| ) 

rf$o 

3. 



03UMC IflCClSIOT* CMV, OSfti 

frS3 


t 


lOnt^LlZC OUG054L-ICO«» 

MFSO 




KltV * 0 

peso 

«. 



oa 1) 

PfSO 

?. 



KMir 3 iPiv ♦ f 

PESO 

0. 



lltO s IPIV 

PF50 




LE50 51-1 

PFSO 

to. 

t 


st*rt t'AcwiiATioniHaop avc« k*tm rju 

prso 

lU 



DO 11 UK, If 

PFSO 

t2. 



DSU« 5 0.00 

P^FSO 

11. 



inLCM)! 1.5,1 

KSD 

1^. 

C 


START llfNEH toap 

PFSD 

15. 


1 

00 1 L = 1.LEI<0 

PESO 

14. 



lANF 5 KPU * i 

PFSO 

It. 



UNO = INO - L 

PFSO 

Ifi. 


9 

DSun 3 CSun 4 AUANrUAtUNOI 

PFSO 

n. 

c 


TRANSFORi^ ElErCAjT AMNOl 

PFSO 

10. 



OSUf» = AUNOl - OSun 

PFSO 

11. 



|f<I-«l iO.5,10 

PFSO 

11. 

t 


TEST FOR NEGATIVE PIVOT ElEfiEnT ANO FOR tOSS OF SldTlFtCANGE 

PFSO 

n. 


9 

IFtOSUNI 12.11,5 

PFSO 

n. 

c 


COMPUTE PIVOT £LEF;ENT 

PFSO 

15. 


9 

OPIV 3 OSORT(OSUn) 

PFSO 

n. 



AIKFIV) 2 DPIV 

PFSO 

It. 



CPU 2 1.0070PIV 

PFSO 

le. 



60 TO M 

PFSO 

15. 

c 


CALCULATE TERnS IN ROW 

PFSO 

90. 


10 

A( INO> 3 DSUn«OPlV 

PFSO 

91. 


It 

INO 2 tND 4 T 

PFSO 

91. 



RETURN 

PFSO 

99. 


11 

RETURN 3 

PFSO 

95. 



END 

PFSO 
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lieLANiC fiBlANK NBLANK 'NBLBKft N8Lm ir9lAN<< < ‘ NBLAKK ntltkH* 





ruhCTlOM NBLANK • t > ^ 

1NTE6CR W3RD< 241, BLANK 

O0D02220 

MLANK 

rblank 

DAT* BLANK/BH / 

00002240 

ftSLANK 

Nt s H * 1 

00002250 

NBLANK 

00 20 n=\,H 

00002260 

NBIANR 

1 = Ml > n 

00002220 

NBLANK 

IF (MOnD( n-BlANK) 40,20,40 

00002280 

nblank 

IQHllhMl 

00002240 

NPLAN-^ 

NBIANK r 6 • t 

00002300 

Nl LANK 

RETURN 

00002310 

NBLANK 

CNO 

00002320 

NBLANK 
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WEwTnp' ' ii£!wT«p‘' 'kwtup* '* VwTf^ " ’’'ttnw 


MCWTf» 



I. SUBRJUTINE KltWTnP(Pfl,vr,W«TnPTm) 

I. c 

1. INTEGER 12 »» PR< 1 ), VPm. W\} 

N* C 

9. . COfV^ON /FI ICON/ C0N<U 

COWON /TEW / im 

COWON /DIPCNS/ NNQ, HHk, NTL 

0. C 

9. DATA lur / 2N / 

10. C ^ 

II. € 

READllUT) HEADER. (NP.U1.6I. NPfl, NVP. NP.NP.NP, NU. NP_NP. NSt 
13. lF(PRm .NC. NPR) GO TO IQ 

IN. IF<VPMI NVP) GO TO 10 

19. IF(W m .Nt. NU I C? TO 10 

IB. IRNTt .EO. N!il1 GO to PO 

It. 10 CAU TOPlIN 

10* URlTEt6.15. HEADER. PR< 1), VPM >, W( I ). NTL. NPR. NVP, NW. NSL 

IN. 15 F0ftnAT(62H0* • • ITER COUNTS FROR HISTORV TAPE 00 NOT RATCM ITER 

20. ICOUNTS FOR THIS RUN # • f// 01 29HTHE HISTORt TAPE LAtEL 1$ - 

11. t l2Ai // OK N3HTHE ITER COUNTS FOR THIS RUN ARE * - 15, 

II. 3 3KNPR. 15, 3HNVP, 15, 3HNU , |5, JHNSL / 

13. N OX N3HTHE ITER COUNTS FROR THE NlSTORf TAPE ARE - 15, 

IN. 5 3KNPR, 15, 3HNVP. 15, 3HNu» , 15, 3MNSL /> 

19. CALL WIKOCX 

IB. CALL EXIT 

V. t 

20. 20 RCAOdUll ITIrE, IPRUM >,U1,NPR >. (¥P( Ul 1, Ul,NVP >, 

I’* 3 IH n^lldd.NU >, CT u |.|sl,NSL> 

30. 1F( ITIRE .LT. 0.0 I GO TO 30 

31. IFIXTIrE ,Lt. TRPTIR) CO TO 20 

32. GO ro 50 

33. 30 ITIRE s -ITIRE 

35. MUTEU.AOI 

35. NO FORRAT(80HOHI5TORT TAPE READ TIRE 1$ GREATER THAN ThE LAST TIRE PO 

3B. liNT ON THE HISTORY TAPE I 

3t. 90 WRITEIG.BOI ITIRE 

35. 00 FORnAT(62HOINITIAL TERPERATURES AND VALVE POSTTIONS INPUT FROR U-T 

3?. lAPE AT G12.5 I 

NO. RETURN 

N|. END 


NEyTRP 

MCyTRP 

UEUTrP 

■CwTRP 

NEWTRP 

neutrp 

NEMIRP 

NEVTRP 

nehtrp 

REWTRP 

NEUTRP 

NEHTRP 

«*.'1RP 

NEUTRP 

NEUTRP 

newtrp 

NEUTRP 

NEUTRP 

NEWTRP 

NEWTRP 

NEWTRP 

NEWTRP 

NEWTRP 

NEWTRP 

NEWTRP 

newtrp 

NEWTRP 

NEWTRP 

NEUTRP 

NEWTRP 

NEUTRP 

NEuIrP 

NEWTRP 

NEWTRP 

NEUTRP 

NEWTRP 

NEUTRP 

NEWTRP 

NEUTRP 

NEuTrP 

NEUTRP 



kZHLlH ' H3M11IV IONlYN NOMLHt hZHttH' M3»lCril"*' NONCIN ' ^ NmiN 




SVOROUTINE itORtlN 


nonlin 



IRCLUCE COfVi,llSI 


NONLIN 



MC - tVNR»NND 


NONLIN 



03 90 1 - l,HHC 


NONLIN 


90 

0( I) £ 0.0 


NONLIN 



OEEPt - NQIP^ 

•NEW 

NONLIN 



HEEP2 - nth 

»NEV 

NONLIN 



NO 114 7 N0if4 ' KHt 

•NEU 

NONLIN 



NTH : NTH ♦ NNC 

«NEtl 

NONLIN 



«U V6R9U 

*H£kt 

NONLIN 



NOin = KEtPt 

•NEW 

NONLIN 



NTH 5 KEEP2 

•NEW 

NONLIN 



JI s 0 

•*-l 

NONLIN 



J2 = 1 


NONLIN 



IF(N^O.EQ.Q) Oa T3 06 


NONLIN 



00 89 { :: l«NNO 


NONLIN 



INCLUDE VftRC,llST 


NONLIN 



INCLUDE VARQ,LISt 


NONLIN 


TO 

Jl = JUl 


NONLIN 



VS s fL0(5,16,NSCH jm 


NONLIN 



IFCLG.EO.O) GO TO 6$ 


NONLIN 



LT6 : rLD(22,IN,NSaU jm 


NONLIN 



INCLUDE VARGA1ST 


NONLIN 

c 


CHEC» FOR LftST CONDUCTOR 


NONLIN 



IftNSOH JT J.6T.0J GO TO TO 


NONLIN 


09 

CONTI KUt 


NONLIN 


06 

CONTINUE 


NONLIN 



|f(NNA.CO.OI SO TO 166 


NONLIN 



LI - NNO^I 

* 

NONLIN 



JJl ^ Jt 


NONLIN 



JJ2 * J2 


NONLIN 



DO 169 1 : Ll.NNC 


NONLIN 



INCLUDE VR02,U$T 


NONLIN 


13$ 

JJl = JJIM 


NONLIN 



LS = FL0(5,16,N9Q1( jjm 


NONLIN 



LTA = FLD(?2,1«i,NS0H JJl >) 


NONLIN 



INCLUDE VRG?,llSf 


NONLIN 

c 


CHECK FOR LGST CONDUCTOR 


NONLIN 



IFlNSOn Jil I.GT.O) GO TO 139 


NQNUN 


U5 

CONTINUE 


nonun 


166 

continue 


NONLIN 



return 


NONLIN 



END 


NONLIN 
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NTwqK 

Mtwni 

llTUf^C 

ftThf^K 

mvAf 

«Th/9i 

flTV^K 

iifyfl< 

NTw^v 

niu^% 

NTuqX 

llTw1)lt 

IITU4I 

•iTtfflf 

ftrwfiK 

«fv«x 

tfvnx 

UTMIt 

•new HftfDK 

ilfwnv 

llTtfRK 

<aw«t 

IITW^K 

HftfAK 

4|ThmK 

MTIfflK 

«TWR«( 

«TW;)K 

NrMK 

HThr^K 

llTVffiK 

•irwAK 

NTWAK 

NTUAK 

UTV^t 

MTWAK 

IITIIAK 

HTWAK 

iirwt^R 

MTWAR 

HTU^^R 

HTwnK 

ifTyaK 

nwK 

UTMAK 

uruf^K 

MTU^< 

NfL-'J^R 

NIU^K 

MlU^R 

MTy^K 

KfUi^iC 
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tz. 

n. 

*T. 

f0. 

*1. 

TO. 

ri, 

T2, 

13. 

1^. 

?5. 

7fc. 

n, 

TO. 

T». 

50. 

51. 
12 . 
S3. 
S*<. 
S9. 

50. 
ii, 
8S. 

ss. 

so, 

51. 

52. 

53. 
Ss. 

55, 

56. 
ST. 

58. 

59. 

100 . 

101 . 

102 . 
103. 
10^. 

105. 

106. 
lOT. 
109. 
109. 

no. 

111. 

112. 


in MX, C0PJ 60 TO 515 

*flEv 

NTVRK 

" CSLl tIH6CH(3» ' ' » 1 • . 'i r 

‘ •NEW ■’ ’ 

NTWRA 

WSirE(«^S06> KPSS5.UBSTSUIS*!! 

•NEW 

NTVRK 

50s F09nAT<// 23H « « • CONTINUING PASS 15, I3H FOS NETWORK K6, 

•NEW 

NTVRK 

1 TH « » •) 

•NEW 

NTVRK 

GO TO 515 1 


ntwrr 

SIO CSLL rLRESU30,NTB> 


NTVRK 

C 


NTVRK 

C SFPiT USF« SDOEO SE51STSWCE TO FLOW CONOfCTOS 


NTVRK 

C 


NTVRK 

5tr in LARI ftDATA(L5»NTS) = 1 .0/( 1 .0/RCAl A( 15*NTS l*10STA( LS^NTS > > 


NTVRK 

SIS IFI .N3T. FIRST i GO TO 520 


NTVRK 

CALL FRN(KeiT<L25 ),NPRN,NOftTA( «♦! ) > 


NTUAK 

CALL P«NtNEfT(L25 ),NPRN,ND AT A| K»2 )1 


NTVRK 

520 CONTINUE 


NTVRK 

C 


NTVRK 

call FLOSALINPRN.LIS, 0, 0, 0, EFROF,tM^Jtl 

•NEW 

NTVRK 

C 

••“1 

NTVRK 

IFIDUf^X .6T. Toil GO TO 530 


NTVRK 

00 525 J=S,L20,5 


NTVRK 

• - LIS ♦ J 


NTVRK 

NFRn s NDATA<F*1 ) 


NTVRK 

NTO = N0ATA(K«2) 


NTVRK 

NDATA(K*t) = NElT<L25«NfRn) 


NTvRK 

N0ArAtF»2) r NnT(l25«NT0) 


NTVRK 

|F( .NOT. LORI GO TO 525 


NTVRK 

C 


NTVRK 

C CALCULATE PRESSURE DROP IN TUBE / 


NTVRK 

C 


NTVRK 

NTS s NOATAU) 


NTVRK 

NFflW = NOATAIK+1) 


NTVRK 

NTO 3 N0ATACK42) 


NTVRK 

R0ATACL9»NTB> = ftOATAI L3+NFRn> - ROATAT 13»NT0I 


NTVRK 

525 CONTINUE 


NTVRK 

RETURN 


NTVRK 

530 FIRST 3 .FALSE. 


NTVRK 

EFROF s FROF 

•NEW 

NTVRK 

590 CONTINUE 


NTVRK 

c 


NTVRK 

CALI TDPLIN 


NTVRK 

WRITE(6,560) NOATAlLlStl), fHPASS, OUHI, TOL 


NTVRK 

560 F0R«AT(65H0* • • SUBROUTINE NTWRA FAILED TO CONVERGE TO A SOU'TI 


NTVRK 

ION FOR PRESSURES FOR NETUORK A6« 7H « • « // 


NTVRK 

2 8K HHflAXlnun PASSES “MO / 


NTVRK 

3 SX l9HriAHftUA CtfRNGE - 613.0 / 


NTvRK 

9 6X HHnAilnuP allowable - GI3.9 ) 


NTVRK 

C 


NTVRK 

CALL KXBCA 


NTVRK 

CALL OUTCAl 


NTVRK 

CALL FLPRNT<fi0ATA(L«n,l5HFL0U CONDUCTORS) 


NIVRK 

CALL EXIT 


NTVRK 

C 


NTVRK 

END 


NTVRK 



tRKl 


nxinKii ^ ' ' RtiJriu 


NTuniCl MTWRXl NTV^ki NTURXl KTuRKr**' NTVRltl' HTWBKl 


f < ■ / I I » . (, 


I 

t 

3 

% 

9 

« 

? 

f 

10 

tl 

12 

II 

IR 

15 

16 
17 
IS 
IS 
20 
21 
22 
2) 
2s 

25 

26 
27 

la 

29 

20 

31 

32 

33 
3S 

35 

36 

37 
3S 
3S 
60 

51 

52 

53 
ss 

55 

56 

57 
6 » 
S9 

90 

91 

92 
53 
96 

95 

96 
57 
5 a 
59 


SUBROeUNt RTyRKULt 6 ,VlR,NPt«t|P 3 ) 

c 

tOGlCHL LVR, L17R, tSR, LOP, COP, FIRST 

C 

OIRCSSIOM RDRTRdI 

C 

toms /RRR6Y / K0RT6I 1 1 

tansQH /FORTS / L2, L3, L6, 15, L6, tT. LB. L5 

COwON /FORTS / LVP, LIFR, LSR^ LOP 

COWOS /FORTS / COP. LRO, RRO, RO, IWJ, NW, Wl*, 6C2 

COWS /FORTS / T3L, RlPSSS, tPS, FRDF 

COWS /7SPRCE/ NDin, WTH, NEitt I > 

C 

CQOIVSLENCE ( ROSTS, NOSTS) 

c 

c 

l20:RDSTSai6)*3 
125 s NTH * 1 
rvCl1U25) X NOin 
NPRR = 0 
FIRST 5 .TRUE, 

CFRDF 3 |«0 
C 

C FSSS LOOP 

e 

BO 560 NPssS3i,nm$$ 
tmt 3 0.0 

C 

IFC .MOT. COP I 60 TO 670 
!F<.MOf. FIRST? CSLL TOPllM 
CSlt LINECK<6) 

IffilTEI 6,6601 NPASS, NDSTSI 116*13 
660 FCRPIAT(///12H « • # PSSS 15, I3H FOR METUORK H, 7H • • »l 
t 

C TUBE LOOP 
C 

670 DO 520 i36, 120,5 

R 3 UR ♦ J 
RITB 3 ftOSTS(K) 

MFAn r MDATS(R*t) 

MTO s HDATA{|{»2> 

ROST 3 NDATA(R^3}' 

130 s moatscr^si 

C 

IfCFIRSTI GO TO 675 
MFRH 3 ME1T(L25*MFRH» 

MTO 3 ME1T<L2$*MT0> 

C 

675 IF( .MOT. COP I GO TO 500 
CALL LINECRUI 

im|T€(6,9S0> NFB, MFRR, MTO, KOAT, flORTRU2*MTB) 

680 FORPATT// 7» TMNTe = 110 , SR TM^FRPt s llO , 

1 0R THNTO 3 110 ,67 THROAT = 110 , 61 7Mi.( MT8 >= G13.F I 

C 

900 IFCRORTI 505,517,510 
505 MTh = NTH * NPRM « I 

CALL «rvRRML30,aOAlR(L2*NTBT,MFRW,NT3> 

MTH = L25 - 1 

R0ATA(LR*NTBI t RQATAI L2*NT8)/(R0ArA(l3*^FRPi)-R:ArA(l1*MT3ll 


MTWRRI 
MTWRRl 
NTWARl 
MTWftRl 
NTURRl 
MTyRRl 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
»MEII MTWRRI 

MTWRR 1 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
NTWRICI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRKI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTuflRl 
MTWRRI 
MTWRKI 
MTWRKI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTWRRI 
MTURRI 
MTWRKI 
MTWRRI 
MTWRRI 
MTWRRI 
MTuRRl 
MTWRHt 
MTWRRI 
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* 2 . 

43, 

44, 

43, 

44. 
41. 
48. 
41. 
TO, 
n. 

T 2 . 

n. 

T 1 , 

11, 
T4. 
T7. 
IB. 
71: 
80. 
41 . 
82. 
83. 
81 . 

83. 

84. 
87, 
68 . 
81. 
10 , 
11 . 

12 , 

13. 
11 . 

15. 

16. 
17. 

14. 
11 . 

109 . 

tOl. 

102 . 

103 . 
101 . 
105 . 

104 . 
lOT. 
108 . 
101 . 
no. 

Ill, 
' M2. 


in ,w. CC8I CO 73 9tS 

C4U ttNECK(3> 

MmTC(4,5041 HP4SS,«rC4T4UI1*n 

104 F08P4Tt// 23H • • • COHTMiUlNG M$S IS, 13H F34 HCfyOU 44, 
t 7H * « «) 

GO TO SIS 

110 C4U FLRtSU30,Hm 

c 

t 47FLV USER 40D£0 RESISlRllCE TO FLOW CO«lOuCTOR 

C 

117 1F<14R> RCATRCr-'tNtfi) s 1 .0/(1 .0/R04T4( H«^iT4 >*R04T4I L6«HT8 M 
115 1F( .^3T. FIRST) GO TO 520 

C4U PR1(^EX^l^S>.^PRN,N0RTA^t♦l >) 

CALL PflNtNElTU25 >,NPRiy ,NDATRMt*2 ) ) 

520 CONUli'E 
C 

C4LI rt044L(MPRNAll*WlN,"<Pl,P<^a, EFR0F,0Wf1II 

c 

inDL<Wl .GT, TOU GO TO 530 

00 525 i-1,t20,1 

1 = 111 ♦ J 

ttfRn = IXDATACK^n 
UTO 5 NDITAUl^l) 

IID4T4<R*U i NEXT(L25*MFRini 
Il04r4<lt*2) = HE*T(L25^HT0I 
|F< .HOT, LOP) GO T3 525 

C 

C C4LCUL4TE PRESSURE DROP IN TUBE 

C 

NTB r KOATAII) 

NFRN £ NDATA(K«I ) 

NTO r NDATRfi(*2) 

RDATA(L9*NTB) = R0AT4( LI^NFRU ) - R04TAa3*NT0> 

125 continue 
RETURN 

530 FIRST = .FALSE. 

EFROF = FROF 
110 continue 

c 

CALL TOPLIN 

yflnEl6,560) N0ATA(U1*IJ, PI7PASS, OUflX, TOL 
160 FORPIATC B5H0^ « • SUBROUTINE NTWRKl FAILED TO CONVERGE T3 4 SJLUTI 
ION FOR PRESSURES FOR NETWORK A4« 7H • « • // 

I 6X IlHnAilnun PASSES - MO / 

3 41 IlHnAilfiL'N CHANGE - GU.8 / 

1 81 HHNAnnun allowable - GU.8 > 

c 

CALL NLIceCK 
CALL OUTCAL 

CALL FlPflNTtROATA(L1),l5MFlO(J CONDUCTORS) 

CALL CUT 

c 

END 


»NC)l 
•NEW 
• NEW 
•NEW 


•NEW 

••-I 


•NEW 


NTURKt' 

NTWARI 

NTWRVl 

NTWRKI 

NTWRKI 

NTunici 

NTWRKI 
NTWflKl 
NTWRKI 
NTWRKI 
NTURKI 
NlWRKl 
NTWRKI 
NTWRKI 
NTWRKI 
NTWRKI 
NTWRKI 
NTWRKI 
NTWRKI 
NTURKI 
NTWRKI 
NTWRK 1 
NTURKI 
NTWRKI 
NTWRKI 
NTWRKI 
NTURKI 
NlWRKl 
NTWRKI 
NTURKI 
NTURKI 
NTWRKI 
NTURKI 
NTWRKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI 
NTURKI. 
NTURKI 
NTWRKI 
NTWRK I 
NTWRKI 
NTWRKI 
NTURKI 
NTWRKI 
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' NTyflllll 


•rvRKii 

iirwnxii 

■rVRKH 

MTyAXN 

ipr-«xN 

NTkHXN 

NTWliXfl 

l|T^mKN « 

MTWfiXN 

nryRXfii 

ntw^kh 

NTW9KM 

NTp’flKN 

HTunXN 

KTWflKN 

HTUflXil 

NTUflXM 

NfUflKII 

NTyRKN 

MTWRKDi 

NTWRKy 

NTURK^ 

NTWRKy 

NTyRXM 

MTWRKN 

MTWRKN 

MTURRN 

HtyRKIV 

NTWRKN 

MTyRRfi 

MTwRKIi 

MTWRKfi 

UTMRRN 

NTURtCN 

HTuRRN 

HTWRKN 

nruRK^ 

MTURRM 

NTURRM 

NfuRKAf 

HTuRkiv 

NTWRRN 

MTURKM 

MrURKN 

HTWRR^ 

KTURKN 

MlWRKN 

IttTWRRN 

KTURKN 

NTURKN 

HTUHKN 

NTWRKN 

nturkn 

nturkn 

NTuiRKN 
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I • 

CHL wt«BC» 
CALL Cl4? 


’ f 


t»i r . 


V* i 



4B. 

43 . 
««. 
45. 

44. 
4T. 
IB. 

45. 
10 . 
T1. 
T3, 

n. 

T1. 

T5. 

Tft. 

71. 

T«. 

75, 

40. 

41. 

42. 

n. 

45 . 

45. 

44. 

4?, 

48. 

M. 

40 . 

41. 

42. 

43 . 

44. 

45. 
94. 

47 . 

48, 
44. 

too. 

101 . 

102 . 

103. 

104. 

105. 

106. 

107. 

108. 
104. 
110 . 


t 

»U cnt HRESaJ0,«^T«7 

c 

C MPLt USER 4D0E0 RESISTWE TO fLOw COliOuCTOR 

c 

517 iriLIAl fi04TiML4*4T8 J = 1 .0/1 1 .t/RD4TJM t4«NTft >) 

515 in .r»3T. FIRST ) G3 TO 520 

Cni PRHOiTlTtl25 l,4?R4,NCRTRnc*l |» 

C*LL PR4I N£*TU25 7,4PR>7,ND4FJi< 4*2 I) 

520 CaunRL'F 

c 

CHI FL04HlKPR4.U4,y!N*hP|,l*P0^ tFROf^CWf'O 
C 

|F<0WPI ,GT. TOL> E3 TO 530 

03 525 3^4,120,5 

4 a U4 ♦ J 

dFfln 5 N0lTAC4«t ) 

MT3 ; «I0ITRU«2} 

KDftTRMtn) : KEITU25 »f«FRin 
kOATA(F421 ^ RE1 T(l 25«NT3I 
lf(.43f. L0P> GO 73 525 
C 

C CHCUIRTE PRESSURE 0R3P Ih TUBE 
C 

NT6 s NOATAiK) 

MFni5 ^ NOATAU^l) 

MTO 3 N0ATA(X«2) 

R0ATA(L9«NTB) = RCATH l3«NFRn> * RDATRC L3«NT3 I 
525 CONTINUE 
RETURN 

530 FIRST s .false. 

EFROF = FROF 
540 CONTINUE 

c 

CHL TOPUN 

kfflItE<t,560) NDATRU14M1, P^XPASS, 0W«X, TOL 
560 F3AHAT<85H0« • « SUBROUTINE NTblRKN FAILED TO CONVERGE T3 A SOlilTl 
ION FOR PRESSURES FOR NETUORK A$, 7H « « « // 

2 8X 14HnAxHnun PASSES - 110 / 

3 81 l4HnAxinuPi change - GU.S / 

4 87 l4HPiAUftU« ALLOlfABLE • 613.8 > 

C 

CALL WIRBC5 
CALL OUTCAL . 

CALL FlPRNT(RDATAU4),15HFL0W CONDUCTORS) 

CALL EXIT 

c 

END 


mvAiLfi, 

NTvrRKlI 

RTWRFN 

nn 

MTb 

MTuRkN 
NTyRAN 
NTVR5N 
NTWR4N 
NTURKN 
NTWRFN 
NT UR AN 
NTURXN 
NTURKN 
«l|cU NTURKN 

••-I NTURXN 

NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
«NEW NTURKN 

NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
NTURKN 
nturkn 
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wcs 


PFCS 


PFCS 


PFCS 


PFCS 


PFCS 


PFCS- < PFCS 


PFCS m'PFCS 


SUft^auTINC PFCS(PiL3C^IILdC,ftAh€) PFCS 

C PFCS 

tosicn iVP, IIF«, lOP, COP^ IRO, LPRjS, LPU«P PFCS 

C PFCS 

• Dffl£KS!3N M3Ctl>. NL0C<n. PFCS 

DtPENSI^R RDATMI), ltU\t PFCS 

e PFCS 

. COf*^a*l /ARRAY / KDATA<1) PFCS 

• CJWON /TEW* / T cn PFCS 

tOfwOH /ISPACE/ hdin, KITH, NEITUI PFCS 

COlviOH /rilCDH/ CQNdl PFCS 

CtJwai* /FDATA / L2, LJ, LS* L6, L?, II, Lf PFCS 

CawaH /FDATA / IVP, IIFR, UR, LOP PFCS 

* COwOH /FOATA / CDP, LRa, RR3, R3, UU, l«V, 6Cl PFCS 

cowan /FCATA / TDL, PKPASS, EPS, FROF PFCS 

. cawan/paiHTN/LHaDE pfcs 

C PFCS 

EOUl valence (ROATA.NOATA), (EIT,NEIT> pfcs 

EOUIVALENCE I CONt n,Tln£N J , < CONU 1,OTlPiEU ), (C:N(2ll,m PFCS 

« EQUIVALENCE USEN,NSEN), ITSET,NSET> PFCS 

C PFCS 

eiTR Mil /65000/ PFCS 

C , PFCS 

. C PFCS 

UP = .FALSE. PFCS 

* LIFR * .FALSE. PFCS 

LAR = .false. pfcs 

LCP ® .FALSE. PFCS 

IFUlOCtU .to. II 60 TO 10 ' PFCS 

CALL TOPLIH PFCS 

WR|TE<I,I0) PLOCM 1, KfRnE PFCS 

10 FORnAnTlHO* • # INCORRECT NUMBER OF ElEHEKlTS INPUT TO P^CS FOR PFCS 

IFLOU OATA, 1C s IS. 7H • « • // $t KHFOR IA6I PFCS 

00 TO 1^0 PFCS 

C PFCS 

10 12 = W.OCm PFCS 

!r(N0AYA(i2t .IT. 01 CO TO AO PFCS 

CALL fOPLlN PFCS 

fcWITE(A,30) NOATAtLi), NAFIE PFCS 

30 F0RrAT(l2HQ* • • INCORRECT NL'PBEfl OF ELE«f;TS INPUT TO PFCS FOR PFCS 

IFIDW RATES, 1C 2 IS, 7H • * • // «R RHFaR 9Afc I PFCS 

60 TO lAO PFCS 

C PFCS 

NO L3 = PLOCI 31 PFCS 

. 1F(N0ATA(L3I ,6T. 0) 60 TO 60 PFCS 

CALI T3PLIN PFCS 

k!RIT€(6,50) NDATA(L3), NArE PFCS 

. 90 FORnATl 72H0* • • INCORRECT NUP8ER Of ELEMENTS INPUT TO PFCS FOR PFCS 

. IPRESSl’RES, 1C = IS, 7H ♦ • * // |l AMFOR 9A6 ) PFCS 

60 TO ISO PFCS 

, C PFCS 

10 LA “ non A I PFCS 

IFTNDATnCLAl .EQ. N0ATA{L2>) GO TO 60 PFCS 

CALL TOPLIN PFCS 

WRITECf.TOJ NDATAUAJ, NAI"E PFCS 

TO FOR/«AT< TfHO* ♦ • INCORRECT NUMBER OF ELEnNTS INPUT TJ PFCS FOR PFCS 

IFiau CONDUCTORS, 1C 2 IS, TH • w 9 // If AMFOR AA6 I PFCS 

60 TO lAO PFCS 

C PFCS 
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Ulo. 

40 15 f fl3C<.5> 




iril5 .17. 1) 40 73 100 


PFCS , 


tF(KD4T4n.5> .87. 0t,lV8 z .T8L«F. 


fFCS 

n. 

100 14 c nOCU) 


PFCS 


IFU4 .IT. l> GO TO 120 i . . , , . m » 


PFCS 

45, 

1F(N0*T4<L4) .80. irDMtUin Llf8 * .T«UE, 


PFCS 

44. 

120 17 = F10C<71 


PFCS 

47. 

1F<nOC<P>jO AT 4(171,4) .80. 0) GO TO 140 


PFCS 

44. 

cm TOPI Pi 


PFCS 

45. 

WRnE(4.l30> WtTilin, 


PFCS 

TO. 

130 rOftn4T(7THO* * • PiCORRECT UlTGER OF UCrEWTS INPUT TO 8FCS 

FOR 

PFCS 

Tl, 

IFLUIO TYPE OftTP, 1C = 15, 7R • ♦ • // 87 4MF0R 5441 


PFCS 

T2, 

140 vRiTCujscn (non n, 1=2, 5) 


PFCS 

n. 

153 F0Rr.AT(5H0RW - 14, 4H 4PR = 14, 4W 4Cf ? l4, (H 4VP ? 14, 


PFCS 

74, 

1 TH 71FR = 14, 4H 4F7 = 14, 4H AAR r 14, 4H 4DP s 141 


PFCS 

75, 

CAU WVF8C4 


PFCS 

74. 

Cm cm 


vFcs 

77. 

c 


PfCS 

74, 

140 14 - p;LCc:tf> 


PFCS 

15. 

1FIL0 .17. n 60 70 142 


PFCS 

to. 

IFiNDATAtlfll .CO. I»0ATA(L2)> L4R = .TRt'C, 


PFCS 

81, 

U2 15 = riOC(9> 


PFCS 

82. 

1F<L5 ,LT. n GO TO 144 


PFCS 

81. 

IF(N0ArA{l51 .CO. NDATAdCniDP : .TRUE. 


PFCS 

84. 

166 IFUVlOCi 1 ) .CO. 4) GO TO 180 


PFCS 

85, 

call TOPtPI 


PFCS 

84. 

WRITE(4.170> NlOCd), NAHE 


PFCS 

87. 

170 F0Rr^AT( 78M0# • * INCORRECT NUf0CR OF ClCr.ENTS 4NPUT TO PFCS 

FOR 

PFCS 

84. 

IFLOW SVSTEfJ DATA, fC s 15, 7H # ♦ • // 8* 4MF07 5A4 > 


PFCS 

85. 

call VIKBCA 


PFCS 

50. 

CALL CUT 


PFCS 

51. 

C 


PFCS 

52. 

140 L12 s NLCC(2) 

. 

PFCS 

53. 

IF(NOATAUU) .to. 5 1 GO TO 209 


PFCS 

54. 

CALL TOPLIN 


PFCS 

55. 

WRnE(4,l50) N0ATA(L121, NAplE 


PFCS 

54. 

150 FORnAT(79MO* • * INCORRECT NUflBER OF ElCnCNTS INPUT TO PFCS 

FOR 

PFCS 

57. 

ISVSIEM PARAnETERS, IC = 15, 7M ♦ • ♦ ft 8* 5HF2R 5A4 > 


PFCS 

58. 

GO 10 220 


PFCS 

55. 

200 iU £ NL0CC3> 


PFCS 

100. 

iFCNOATAam .CO. «n go to 2ao 


PFCS 

lot. 

CALL TOPI IN 


PFCS 

102. 

wRlICif.TlO) NOATAUm, NAf^E 


PFCS 

103. 

210 FORDAK 6IH0* • • INCORRECT NUMBER OF ELCwENTS INPUT TO PFCS 

FOR 

PFCS 

104. 

iSOLUnON PARAnCTERS, IC = 15, 7M • • ♦ ft 8X NmFOR 5A4 1 


PFCS 

105. 

220 wRnC<4,230 l ( NLOC( I >, 1 = 2, 4 ) 


PFCS 

104. 

230 FORflATUROASYG = U, TH ASOl = 14, TH ANET = 14, 4H AVL = 14, 


PFCS 

107. 

1 5H AP = U, 4H KOP =15) 


PFCS 

104, 

call 41K0CK 


PFCS 

105. 

CALL EXIT 


PFCS 

no. 

C 


PfCS 

in. 

250 IM = NLOCiN ) 


PFCS 

712. 

240 U5 = NL0C(5 1 


PFCS 

m. 

280 Lit = NLOCff 1 


PFCS 

IM. 

C 


PFCS 

115, 

C SVSTEn PAfiAnErfflS 


PFCS 

lU. 

t 


PFCS 

MT. 

300 COP = .false. 


PFCS 

m. 

IFiNLOCCn .NE. 0) COP = .TRUE. 


PFCS 

115. 

IFtCO? .AND. INOOE .EO. OJ CALL NNREADM ) 


PFCS 

120. 

ftRO = NDATA<L12*2I 


PFCS 

121 . 

lf<NR3 .IT. 1 .OR. NflO .GT. PAXM GO TO 310 


PFCS 

122. 

IRO r .TRUE. 


PFCS 
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I 2 S. 

12 «. 

\V. 

I 2 ». 

IJO. 

131. 

132. 

133. 
13^, 
13$. 

nr. 

139. 

139. 

1^0. 

ni. 

m. 

H3. 

1«. 

115. 

11 «. 

nr. 

lie. 

Ill, 

150 , 

uu 

152. 

191 . 

151. 
195. 
159. 
157, 
159. 
159. 
UO. 
lit. 

192 . 

193. 
191, 
195. 

169. 
197. 
199. 
U9. 

170. 
iri. 

172. 

173, 

171. 
175. 
179. 
l?7. 
178 . 
IM. 

190. 

191. 
182 . 
m. 

191. 

195. 


GO TO 320 9FCS 

310 IRO = ,f9L5E. 9FCS 

90 » RDRT9U.12«2) FFC5 

320 mw 3 ^D9TML12«31 PFCS 

IF<«(nu .LT. 1 .OR. HW .GT. HAin GO TO 330 PFCS 

tlH/ * .TRUE. PFCS 

NnU = h09T«(LI2«31 PFCS 

GO TO 310 PfCS 

330 trsu s , False, pfcs 

IW 5 RQATA(L12*31 PFCS 

310 GC2 ^ R0ATA(112«5 1*2.0 PFCS 

C PFCS 

C SOLUTION PARAf^ETERS PFCS 

C PFCS 

TOl s ROATAi 113*11 PFCS 

WPASS * NDATAIU3*2> PFCS 

tPS = R0ATA< 113*31 PFCS 

FROF # R0ATA<L13*11 PFCS 

C PFCS 

C ¥AIWES PFCS 

C PFCS 

IFUI5 .Lt. 1) GO TO 510 PFCS 

IFCNDATAUn 1 .LT. 1 1 60 TO 510 PFCS 

IFUVPl 60 TO 318 PFCS 

313 WRITE! 9,311) N0ATAU5>^ NAHE PFCS 

311 FGRf^AnrTHQ* « • HyCORRFCT PlUflUR OF ELEnEITS INPUT TO PFCS FOR PFCS 

IVALVE POSITIONS, 1C s 15, 7M • * • // 8X IHFOR 999> PFCS 

CALL WU9C« PFCS 

CALL cm PFCS 

C PFCS 

318 tlQ s NDATACLI51 PFCS 

CO 500 J=I,110 PFCS 

til s «DATACtl5*JI ^ PFCS 

NV » AtOATAILIl*!! PFCS 

HOPE - N0ATA!L11*11 PFCS 

IFIf^ODE .EQ. 01 GO TO 500 PFCS 

IFCNV .GT. WDATmsn GO TO 313 PFCS 

iniNl s flOATA(L1l*5l PFCS 

inAii s rdata(lii«91 pfcs 

NSEM = N0ATAU1W91 PFCS 

IC sNOATACLil) PFCS 

|F| IC ,E0. 10) GO :d 150 TFCS 

nSET S NDATAU11*9) pfcs 

IFIN5EN ,67. 0 ,ANO. N5EN ,LT. 10000) T5EN = HISEN) PFCS 

IFCNSET .GT. 0 .AND. NSET .LT. 10000) TSET x fCHSCT) PFCS 

1F( IC ,E0. 12) GO TO 390 PFCS 

IFI IC .EO. 16 1 GO TO 120 PFCS 

C PFCS 

CALL TOPLIN PFCS 

WRITEU,350 ) IC, NAhE PFCS 

350 rOAP^ATi 72H0* * • INCORRECT NUMBER OF ELEnENfS INPUT TO PFCS FOR PFCS 

IVALVE DATA, IC - 15, 7»i * • • // 8t hhFOR 1A9 1 PFCS 

CALL AlABCA PFCS 

CALL EIIT PFCS 

C PFCS 

C RATE tlFiITEO PFCS 

C PFCS 

390 TUB = BD6TA<LM*I0) PFCS 

IFIABS! TSEN*TSET) - T08 > 500.500,380 PFCS 

380 IFUSEN ,GT, fSET ♦ T09 > CO TO iCO PFCS 

ICOT = AffAinnOATAC Ll|*in*! fSEN'TSET-T0Bl,-SCA’‘A<tll*12 M PFCS 

ROATA(L?*iyiVl = ArArUBOATA(L5*IVV)*lC3T*OTHiEl*.l»lNl ) PFCS 

GO TO 5C0 PFCS 
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^6 , 

900 I03T ; ,AfilNUftCAT9U9t*ll l«ITSEh-tSET*TDft)* L9t* 12 1 1 



IBT. 

KC«r9{L5«MV> V 9r^UUR09T9(L5«N\O*XD3T«DU^U^t^Ml > 


PfCV 

IBB. 

C3 T3 900 


PFCS‘ 

ts^. 

t* > 


PFC5 

190. 

c raitnifsuu 


PFC5 

191. 

c 


?rcs 

191. 

920 OT r nih - »StT 


PFCS 

193, 

15S = RD9rML9l*l0t « 0T«lR09TML9t*ll 1 • Of •CR::*T«U9l«t2 1 • ' 


PFCS 

199. 

1 OT«IR09T9CL91*131 « OI*C R:*TRU91«|9 1 • 


PFCS 

199, 

2 or*iflC9Tft(L9i»i5 mni 


PFCS 

196, 

miss - WH\ > 925,990.930 


PFCS 

19r. 

925 ISS = R0RT*[L9U5 1 


PFCS 

198, 

Ca TO 990 


PFCS 

199. 

930 IFUSS - irRin 990,990,935 


PFCS 

200. 

935 ISS 5 RDATACL91*6I 


PFCS 

201. 

990 RDRTRU5*»iV) 2 ISS • < RQRTMU^NV >-lSS -OTt^L'/RCRTRt L9l*U 11 


PFCS 

202. 

€0 TO 500 


PFCS 

20J. 

C 


PFCS 

209. 

C SWITCHING 


PFCS 

205. 

c 


PFCS 

206. 

950 |F( IFlI((2.0«T(N5EW)-RDATft(l91*5)-RflATR(L9niOn/lSORfAn9l»'M 


PFCS 

20T. 

1 • ROflTA(L9monn 960,500,980 


PFCS 

203. 

960 RDATRU5*NV) r XMNt 


PFCS 

209. 

GO TO 500 


PFCS 

210. 

9B0 R0ATAU5«NV) s Xf^RIt 


PFCS 

in. 

C 


PFCS 

212. 

500 CONTINUE 


PFCS 

213. 

C 


PFCS 

219. 

C CHECK PUriP OPTION 


PFCS 

215. 

C 


PFCS 

m. 

510 1F(L16 .LT. 1 } GO TO 590 


PFCS 

m. 

fF(NDATA<U6 1 • 21 590,520,569 


PFCS 

lie. 

520 hPl = NOATAfLUM) 


PFCS 

219. 

fcPUnP 2 NCATAUU>21 


PFCS 

220. 

CALI OIO€6UTlF^EN,NOATA(NPUPiPl,flDATAU6*NPm 


PFCS 

221. 

590 LPUnP 5 .false. 


PFCS 

222. 

GO TO 600 


PFCS 

221, 

560 iruflP 5 .TRUE. 


PFCS 

229. 

9PI = NOATA(LU*l ) 


PFCS 

225. 

NPO = NDRTAaU»2) 


PFCS 

226. 

575 IF(N0ATR(II6) .GT. 31 GO TO 580 

•-12 

PFCS 

22T. 

XPL'PlP = 1 


PFCS 

226. 

NPUnP = «DATACLI6*3I 


PFCS 

229. 

Wtll r ROATA<NPL'rP»NP-l ) 


PFCS 

230. 

OPhX i RDATA< NPUnP*2l 


PFCS 

231. 

GO TO 590 


PFCS 

232. 

5 BO KPUPiP = 2 


PFCS 

233. 

AO = RDATfl(U60> 


PFCS 

239. 

A1 5 RDaTAUUM) 


PFCS 

235. 

A2 = PDATA{116*51 


PFCS 

236. 

A3 ^ BDATA(L16»6I 


PFCS 

23F. 

A9 = R0ATAU16 + 7) 


PFCS 

233. 

C 


PFCS 

239. 

C SfSTER SOLUTION 


PFCS 

290. 

C 


PFCS 

291. 

590 IPASS = .false. 


PFCS 

292. 

690 DO 960 KPASSrl,20 


PFCS 

293. 

C 


PFCS 

299. 

IF( .NOT, COP) GO TO 690 


PFCS 

295, 

CALL TOPUN 


PFCS 

296. 

WRI TEC 6,620) KPASS, NAPE 


PFCS 

29?. 

620 F0R!*'ATC 70H0* • f CHECKOUT PRINT FOR PRE5S'.'A€/F . 3W C rr’P'/TAT I :n 3'.*1 


PFCS 

298. 

IflOUTiNE . * ♦ // PI 7HKPASS x 13, 5H F09 9A6 » 


PFCS 



* LC * IC ♦ ^ 
intMSSI 69 J2 MO 

T9C^ filp*ss. t^S, fRDF 

490 FOnnATtlMO 1«| 5HT9L « 610.4^ 4M r\IFASS > 1$. 4« CFS « filO.S^ 

1 IM FAOF 5 CtO.SI 
LC * LC • 2 

e 

440 CALL NTwnKlLM) 

C 

tri .M9r. LFUPtF) 69 T9 1000 

c 

c fuv 
c 

W$ :£ R0ATAUA«HA1I 
TEST s O.OOMU5 

DA& X RDATA(U*NPI1 - R0ATA<L3*NP9> 

im X u$ 

OPR = OPS 

60 T9 UAO»eOO>, RPUFIP 

t 

C IAOULATCO PUPIP CUAVt 

e 

ASO IF(IPASS) 69 TO 469 

2. C 5 OPS/MS 

9 . Ox 0.0 

4. 60 TO 6T0 

9. 669 C X <OPS-OPU/(VS*WU 

0 » OPL • w.*c 

6/0 HP s HOATAUVPUnP ) 

in.»9T. COP) ca TO 600 
CALL ilMECA(Z) 
hmiTE(6,660> 

480 fOAMATOMO TI 39HCHECR9UT PRIKT FOR TA0ULATEO P'jPP CtlRV€ I 
490 09 790 Jx|,tOO 

UR X AntMtuS^UPI) 

OPO.x AfllNUDPS^DPni) 

CALL 010EGHUA,MQATA(NPUnP>^DPR) 

CALL flEVP9L<DPB,NCArA[NPUMP ),WB) 

IF! .ROT. COP) CO TO 7)0 
CALL LtRECH<3) 

UWITEf6,705) i, WS. WA, UB^ DPS, OPA, OPB 
705 FOAflAM/ 71 7HJ s HO , 8* TM;jS * 619.8, 

t 91 7KUA s 613,8, 9* 7 hu*B x G)3.8/37X THCPS s 619.8, 

2 91 7H0PA X 6)3,8, 91 7HDPB x C13.8) 

710 Ax <0P6-0PA)/(WB-WA) 

B X DPA • UA*A 
WIU X (O-BJ/IA-C) 

If{ A&S(U^EW-U$ ) * TEST) 9<(0,9V0,720 
770 WS X kAEW 

OPS X A»US ♦ B 
7rO C0RTI4UE 
CALL TOPlIN 
URITEt6,7«0) UAnC 

T60 FOAnAT<77HO* # » SUBROWTINE PFC5 FAILED T9 CONVERGE T9 A S0U'TI3R 
1 FOR FLOW PATE • • « // 01 AHFOR 9A6 ) 

UPITE(6,770) 

T70 F0RnflT(//9l ?7HSySTEn TOTAL FtOW RATE IS SUPPLIED BV »H IRPUT C*'{IV 
IE) 

69 TO 900 

C 

C POlVNOniAL PUr.P CURVE 

c 

800 C«£CR s O.OOI*OPS 


'PECS 
" PFCS 
' PFCS 
PFCS 
' PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 

•Ncy PFCS 

•p-l PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

pf:s 

PFCS 

PFCS 

PFCS 

•flTW PFCS 

vPIEtf PFCS 

•REtf PFCS 

*HIU PFCS 

♦HEU PFCS 

»•-! PFCS 

PFCS 
PFCS 
PFCS 

•WEU PFCS 

•IIEU PFCS 

•UEU PFCS 

•UEtJ PFCS 

•mew PFCS 

«NEW PFCS 

•HZW PFCS 

#*•1 PFCS 

PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
PFCS 
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I ■ » A 


! ,* ' ft 



313 

31H 

315 

316 
3tr 
316 
319 
3^0 

321 

322 

323 
326 

325 

326 
32? 
321 

329 

330 

ni 

332 
313 
316 

335 

336 
13? 

333 
339 

360 

361 

362 

363 
366 

365 

366 

367 

368 

369 

350 

351 

352 


C 


c 


c 


8Q0 a 

*11 a 61 - 06S/WS 
iMtU : W5 


!FI .63?. LP*SS> GO TO 820 
IW = (0P5-DH)/(W5-Ul> 

6C0 = 80 - DPI ♦ TEPtP*Ut 

*n = 81 - TEPiP 
820 DO 860 J=W100 

FW6E6 a 800 ♦ k’6EtJ«(8ll * VfiEy*U2 6 WNEW«( 83 ♦ l/6EWa86n) 
tF(88$(FyVEU> * CHECK 1 960»960.860 
860 FP a 811 t yVEUM 2.0482 * y6Ey*4 3.0«83 ♦ y6EU>6 ,0«86 ) > 
y\Ey = W6EW - FySEW/FP 
860 CONTINUE 


C8Lt TOPLIN 
yMTE(6,T60) NAPE 
yniTEU,8dO) 

880 FOflPAl(//ex e^HSYSTEP T0T81 PRESSURE DROP IS SUFFLKCO 8Y 8 FOURTH * 
lORCER POlVyOP>IAL FUNCTI06 OF FLOW RATE 1 
900 CALL WUOCK 
CALL OUTCAL 
CALL EIIT 


960 If( ABSIWK-UNEWI - TEST! 1000,1000,950 
950 RDATA(L6»NPI > : WtiZM 
LPA55 = -TRUE. 

Wt = WK 
OPL a DPR 
960 CONTINUE 


C8LL TOPLIN 
yRITE(6,98Ql NAPE 

980 FORpaT(U6H04 • • SUBROUTINE PFCS FAILED TO CONVERGE TO A SOLUTI^ 
IN TO TRUE SYSTEPI CHARACTERISTICS AND TRUE PUPP CURVE » • • // 

2 Bt 6HF0R 986) 

CALL klRBCR 


CALL OUTCAL 
CALL EXIT 
C 

1000 RETURN 
END 


8FCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 

PFCS 
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I 

«G UPLOT-^tCOnBIMHAW-COPLOT-flRHI 
>« USE GOPLOr/COOS 


rtaiA 


r.M 

^L3U 


flDlA 

rtOTB 

^LOTA 





P3L ^3L F3L . . POL. , POL.,., ML POL,.,, POL,.,., POL,,.., POL 



fuNcnoKi POLiLOC^n 

POL 

c 


POL 


cowman /imRAv/ MORTiim 

POL 

c 


POL 


call OICe6U»,NOATAUOn,t> 

POL 


POL 3 t 

POL 


ftCTVRN 

POL 


CNO 

POL 
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a. StlOKOuTlNE PftM(LOC«H,N30n 

t« e 

3. fitnC«lS!3iii LOCm 

c 

9. C 

tRH .LT. n 69 T3 20 
T. DO to i=l»H 

t. tFUOC<J*l) .EO. NODE) €0 TO 30 

9. 10 COUHVJE 

10. 10 N - H « 1 

11. IRM .ST. lOCmt SO TO 90 

U. LQCfH^tl £ I4J0E 

13. tt30C = N 

19. RETUAN 

19 . SO RODE = J 

U. NETU9R 

IT. C 

to. 90 Rtco = « - iOCdl 

19. CHI TOPLIII 

20. imiT£l6,90) HUO 

21. 90 F0APIAT<03H9» • * INSUFriCIENT DVMAmC STQRRGC AVAILABLE FOB FLOW 

22. 1BAL9VCIRS SUBROUTINE • * « /T OX 5HSH0RT I9« KH LOCATIONS) 

23. CALL WLFBCA 

29. CALL EXIT 

29. C 

26. ENt) 


*PRII 


*FRN' 


fRN 

FAN 

FAN 

FAN 

FRN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 

FAN 



26 -V 



1. 


SUOROUtIRE PSORlft.ft^R.R.I.CPS^WI 


2. 

t 



3. 

C 

SUOROUURE PSOR SOLVES R SISTER OP SIf»L'LTRl^E3uS EOURTIONS USING * 

R. 

C 

STRTIORpRV POINT lURRTlVE SUCCCSSlVC OvERRElRtRTtON NETHOO. 

S. 

c 



ft. 


DIKNSION R(n), t\n} 


T. 

c 



1. 


PRU3ioo«n 


1, 


Wl S If - 1.0 


10. 

c 



It. 


DO ftOO K = 1«f^AXlC 


12. 


OIGC s 0.0 


n. 


00 500 1=1, P 


IR, 


SUP - -A(T,n<l(I > 


15. 


00 too J=l,H 


U. 


1,J>> ,100 


II. 


Sun = sun ♦ Aa,i)«x<ji 


10. 


100 CONTINUE 


10, 


400 TCF.P = u*(R( I )-suni/R(i j 1 - wuim 


20. 


CU\G - ftBSlTEFP-XI 1 >> 


21. 


IFUH5G .GT. BIGCl BIGC 3 CHNG 


22. 


im - TEnP 


23. 


900 CONTINUE 


in. 

c 



25. 


1F(BIGC-EPSI700,700 


2ft. 


ftoo continue 


27. 

c 



2ft. 

c 



20. 


450 CONTINUE 


30. 

c 



31. 


yHlTE(ft,ft3m nAJUt,Bl6C,EPS> 


32. 


630 FORnATUHl // liniUH*! f/ 50H SUBROUTINE PSOR FR1t€0 TO 

CONVER 

33. 


1 TO A SOiUTIQN. //Ill 26HnRXinun ITERATIONS - tlO 

/ 

30- 


1 111 2ftHlARGESr CHANGE - €13. ft 

/ 

35. 


1 Ui 2ftHnAiinun allowable Change - El 3. ft 

/ 

36. 


X 111 26H0VERRELAXATI0N PARAPETER * El3.ft 

// 

37. 


1 11 13I(IH«M 


3ft. 

c 



30. 


call GENR(A,1,0,'0C0EFriClENTS OF PIJIM 


RO. 


00 670 J=l,n 


51. 


1 = J 


52. 


CALL EENUR,l, 1,^0 COLLIN') 


53. 


Call cenrc A( i,J),i,fi,‘ m 


55. 


670 CONTINUE 


55. 


CALL CENRT R.I.n, 'flfllGMT HANO SIDE*) 


5ft. 


CALL fENA(l,l,n,*OCOnPUTEO VALUES OF P AFTER PlAxlPUP irCRATIDNS* 

57. 


IF(B!GC-EP$1 700,700 


5«. 

c 



59, 


RETURN 


50. 

c 



91. 


700 CONTINUE 


52- 


710 FORrAn///Tn PSOR CONVERGED TO A SOLUTION FOR ORESS'JRES 

INM5, 

93. 


t* ITERATI0W5M 


95. 


RETURN ! 


95. 


END 





fSOft 

^S3B 

fSOB 

>$aR 

P$QR 

rsiJR 

rS3R 

rsoR 

fSOft 

PS^R 

PSOft 

PS3R 

PS3R 

P53R 

PS3R 

PSDR 

PSOR 

PS3R 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 

PSOR 
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• I 1 ■ ' 1 ^ * 

t« SVfift3uT|ll|£ PUlDiMNLaC»Slt;nA,fICR3l tADIR 

t. C SA3IR 

3. C CALCVIATION OR ttt CA3SS AR0|iTI9R IIADIR 

%. C tADlR 

9. UGtCAL ^IPLCr RRDin 

*. /S3UPCE/ QU) RAOIR 

T« /SSP«C€/ (VTM^ CITMI RADIR 

• , CawOR /ARRAY / tURvatn RAOIR 

9. C3W01R / OlPCKiS/ MDNpNAR RAOIR 

10. ceivion /UnP / Til) 9ADIR 

lu COnnOR /FllCOR/ COMl) RADIR 

U. C MADIA 

13. CTf'CRSiaN R13C(1 1 MADIA 

19. OI^ENSION MCuRvOni MADIR 

19. C MAOIR 

1A. EOtjlVAlClKCE (COfyC 11 Jinn, CCdM22),OT|ME1 1 RADIR 

11. EQUIVAICNCE (CURVD.NOJHVOI MAOIfl 

10. C MAOIR 

19. DeflME OTAum ' CVTIRj^C^ll MADIR 

20. C MADIR 

21. Iiwr s KDN * NAN MAOIR 

22. MNC = NTH - NNT MADIA 

23. EvPlCr : .TRUE. , MAOIR 

29. iFCDTinEI .£T. 0.0) EIMLCT « .FALSE. MADIA 

29. MAOIR 

26. IFINLQCm ,E9. 61 GO TO 2 MADIR 

IT. CALL TOMLIN MAOIR 

23. VAtTE(6 J> NLOCni . MAOIR 

29. 1 FORnAT197HI}« « « INCORRECT NVH9ER Of ELCnENTS INPUT TO RAOIA, 1C MAOIR 

30. 13 19, 7H • t •> MAOIR 

31. call Nt«eCA MAOIR 

32. CALL cm MAOIR 

33. € MAOIR 

39. 2 ISNA = NL0C<2> MADIR 

39. tSEfI s NLOCO) RADIR 

36. tSREf 2 HL0C(9> MADIR 

37. ISCON 2 NlOC(9> MAOIR 

30. NNA 2 NL0C<6> MADIR 

39. tSCA 2 NLDCU) MADIR 

90. NS 2 NCUhvO(ISNAM) MADIR 

91. NC 2 NCURVOMSCONI MAOIR 

92- in NCUfiVOClSCn) 1150,500 MADIA 

93. IfiEG 2 ISNA ♦ t MAOIR 

99 . lEND = ISNA ♦ NCURVOUSNA) MADIR 

95. CALL TOPLIN MADIR 

96. imiTE(fJOO) (NCURVO<KK)JN2l0EG,IEND) RADIR 

97. 900 FORflATI »OIR CROSS RAOIATION ORTA V//6T‘ SURFACE DATA* //H 1 ‘NUMBER MAOIR 

90. 1 OF SURFACES 2*15//! 17’ Surface NuneER’Ti * surf ace area *T7* number of radir 

99. T NODESV/l207l5,TlFI2.5,lfrll5 n RADIR 

90. in NS .NE. (NCi’RVOdSNA >'11/31 GO TO 501 RADIR 

91. NR1TE(6 jOn KURVOdSEn^KK >JK = t^N$) RADIR 

92. 901 FORr.ATl ///6I’Sunf ACE ErnISSiVITY DATA*//d27lOEI 2.9 M MADIR 

93. |F<NS .NE, NCl'RVDdSEnn CO TO 500 MAOIR 

99. DO 20 |2l,NS RADIR 

99. IDC 2 ISEn ♦ I radir 

96. IF ICvRvOaOn .GT, 0.01 GO 10 10 RADIR 

91. CuRvOdOn 2 .00001 RADIR 

98. GO 73 20 ■ RADIR 

99. 10 IF (CvRVOdOn .LT. I.OI GO TJ 20 RADIR 
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* 9 . 

4ft. 

ftT. 

48 . 

ftft. 

10 . 

n. 

II, 

13, 

ift. 

T5, 

Tft, 

??. 

? 8 . 

Tft. 

80 . 

81 . 

81. 

83. 

ftft. 

8 $. 

8 ft. 

87 . 

88 . 
8ft. 
ftO. 
ftl. 
ft 2 . 
ft3, 
ftft. 
ft5. 
ftft. 
ftl. 
ft8. 
ftft. 
iOO. 
IDI. 


03. 

Oft. 


iOft. 

[OF. 

i 08 . 

09. 

10. 
lU. 

u. 

13. 

1ft. 

IS. 

tft. 

IF. 


20 . 

21 . 

22 . 


CL'8V0(LQC» = .ftftftftft 
JO Ce«lFMFl'( > • 1 ‘ 

imtTdft.ftQS^trUftVOC lS8EF#Ka3,fKal;1«Sl 
ft03 fORraU ^//H*SURf8CE REFlECTlftlTy 04TA«//C ) t ' ' ' » i 

inns HCURVOdSREni 63 Tfl 502 

03 ftO 1 = 1, *1S 
LOC = ISREF • 1 

IF ICl'RVOUOCI .6T. 8.0 IGO TC 30 

cun^ouoc) a .00001 

S3 T3 ftO 

30 IF ICuRvQdOn .LT. 1.0) GO T3 ftO 
CURVOilOC) 5 .99199 
ftO C3Hn*«\jE 

UEG s ISCON ♦ 1 

lENO 2 isca*l ♦ 8CL'8VOtl$CO»n 

WAlTECft.ftOS ) (NCURV0(KF ),KK:I8£G JFI^D > 
ftOS Fi)HnftT< /F/ftl*$UflF8C£ CONNECTION D8T8 V/t |I«FA3N SU8F*C€*TI *T3 SVRF 
»8CE‘8l‘VlEu factor •;/( tex IS, 1 2X15 , FXE12 .5 ) ) 

LOC = NNft 
WRlTE(t,ftlO) 

ftio FaflfiAn//yft»'NOOE CATAV/ni‘SU8FACC*ftl‘t? *N0G€Mll«4REA^ftIl//) 

DO ftO 1=1, MS 
LL i ISNA ♦ 3»| 

18EG a LOC ♦ I 

UNO = iOC ♦ NCURVO(LOC) 

yRITE(ft,fttS) NCUAV0(LL-1>, I NCURVOC KK ),KX = IBEG, ICMO > 

415 F0RftAT(nil5,m9,ftUl0,F|5.Sn) 

lFCMCVnvO(U*t ) ,NE. MCGflVOI LOC )/2 ) GO TO 50ft 

1ST * LOC « 2 

LOC s LOC ♦ NCURVOdOO 

ASl'rt - 0. 

00 50 J?IST,L0C,2 
A5U« s Asun ♦ CURVOTJ) 

50 CONTINUE 

!F(AB5(ASUN'CURV0tLL>)/CURV0(U) .GT. .01) GO T3 505 
LOC = IOC ^ 1 
ftO CONTINUE 

IFT ,5*INS*NS*N5> .GT. NCUfiVOi ISEA )) CO TO 50ft 

LL = ISNA - 1 

LOC = ISCON 

DO 80 1=1, NC, 3 

DO 75 J=l,2 

LOC r LOC * 1 

00 TO KM, NS 

IF<NCURVOUOC» ,E0, NCunvO(LL^3»K ) > GO TO 72 
TO continue 
GO TO 507 

T2 NCURVOdDC) = K 
T5 CONTINUE 
LOC = LOC ♦ I 
80 CONTINUE 

DO 100 IM,NC,3 
LOC 5 ISCON ♦ I 
NFR a NCt'ftVOtLOC) 

NT3 = NCUHVOUDCM ) 

LOCI = ISNA ♦ 3»NFH 

EA = -CURVOUOC*21*CURVO<LOCt I 

rF(NFR-NfOH5,95 

nhlo = nfr 

NFR = NT3 

NT3 = NKID 

95 L0C2 = (NFR-n*NS - ( NFR<NFR-NFR >/2 ♦ NTO 
CUKVOt I5£A*L0C2) = EA 


■8DIN r 

ftADiR - 

MDIR 

RADIR 

DAOiR 

RAOIR 

RADin 

8ADIR 

NADIR 

NADIR 

NADIR 

NADIR 

nadir 

NADIR 

NADIR 

NAOtft 

RAOIR 

NADIR 

NADIR 

NADIR 

NADIR 

NADIR 

NADIR 

NADIR 

RADIR 

NADIR 

NADIR 

RADIR 

RAOIR 

RAOIR 

RADIR 

RADIR 

RAOIR 

RAOIR 

RAOIR 

NADIR 

NADIR 

NADIR 

NADIR 

RADIR 

RAOIR 

NADIR 

RAOIR 

RAOIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

Nadir 

nadir 

RADIR 

RADIR 

RADIR 
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100 

Da no t *3 I, MS 

IQC * M-IMMS - Cl«|-l W ♦ I 

CL'flVflin£**Lac» S CUMVOt ist*«tac> • Ct>IIVO(|SMIIO*n/€Uf1VOUSRCf»t> 

no coMUMVi 

cm Sfn;NV( CfRv5( lSEi*l1,MS1 

on FoAn«T( ///il•coKi^tCTlOM DAr«*^/iiv*rRa>i suftroct* 

I'SCRIPT FA«//1 
D3 120 l=l,0C,3 
lOCI = ISCOO • 1 
MFR r Mtiavcuacn 
MT3 = Nci'flvouacnn 

laC = (MrR-n»MS - (MFR«fVfR-KFR)/2 * «T3 

CU»V0(L0Cl*2> = CufiVOt 15€fi*KFR »*CUftVO< tSr^«MTD )*CVRVO< (SM*«3«Mnn« 
1 cvnv3«iSMfto»MTa)*ci'flifO( isfr^lod/ 

» CuavOl ISREF*NFR VCURVOt ISR£F*NT: I 

tffllTE(£, 020 ) MCVftVOi I 5 Nft« 3 *>jrR-n, NCVRVOM SM*» 3 *NTa* 

1 CfRvouacn?) 

020 rOftwRTU2IllO,5niO,Fn.5) 

120 tOMTpVLF 

oa 125 m.fis 
ion = IS£0 ♦ MS ♦ 1 - 1 
cuRvodon 1 s 0,0 
Its CONflMUE 
DO no I ? 

LOC s ISCOM ♦ I 

ton s isEo ♦ Mcuflvouac) ♦ ks - i 
cuRvoaocn ? cmoaam ♦ ciiRvouoc^ti 

LOCI = ISCO ♦ MCL'RVO<lOC+n ♦ N 5 - ! 
ci>avo(^ocn = cl'Rvouoci) ♦ ci'Rvouoc«2i 

130 COMTiML't 

MCUflVOdSEnl S 'NCURVOnSE«> 

CHI lOPLlM 
ISO LOC 3 lUNA 
DO 175 I3|,NS 
LOCI 3 ISNA « 3*1 
ISN 3 NCURVOUOn-l> 

HM 3 Mcuftvodocnn 
SUflAT = 0.0 

00 no 

LOC r LQC ♦ 1 
MODE = MCURvOdOC) 

TP = KNOOE) - T2ER3 
LOC = LOC ♦ 1 

SOfiAT = Sun«T ♦ Ct?RVO<LOCI*TP*TP*TP*TP 
170 CONTIMUE 

TU5M1 = SumAT/CUflVOCLOCl I 
LOC = LOC ♦ I 
ITS CONdNUE 

DO ISO ni^MS 
CUflVOt ISEAM-l ) = 0.0 
ISO COMTIML'E 

DO no I r 1 ,NC ,3 
LOC rtSCON • 1 
LOCI r LOC ♦ 2 

L0C2 = ISEA ♦ MCtRVOdDCI - 1 
L0C3 = I5MA ♦ 3*MCL’RV0<t0C*l 1 - I 
ISM = NCt'RVO(LOC3) 

CeRV0(L0r2> = CVRvSfLOCtI ♦ SIGnR*CL'RVO(L0Cn*TM5MI 
L0C2 = ISffl * MCU^V0(L3C*U - I 
10C3 = ISMft ♦ 3*MCt'AVOdOC^ - I 
ISM = NCU«V0<L0C3I 


<»M [ 

{^> I MOIR 

t ' RADIO 
RAOIR 
RAOtft 
RAO! A 
RADIR 
RADIR 
RAOIR 
RADIR 
RAOIR 
RADIR 
RAOIR 
RAOIR 
RADIR 
RADIR 
RAOIR 
RADIR 
RADIR 
RAOIR 
RAOIR 
RAOIR 
RADIR 
RAOIR 
RADIR 
RAOIR 
RADIR 
RAOIR 
RAOIR 
RADIR 
RAOIR 
RADIR 
RADIR 
RADIR 
RADIR 
RADIR 
RADIR 
RADIR 
RAOIR 
RAOIR 
RAOIR 
RADIR 
RADIR 
RAOIR 
RADIR 
RADIR 
RADIR 
RADIR 
RAOIR 
RAOIR 
RADIR 
RADIR 
'RAOIR 
RAOIR 
RAOIR 
RADIR 
RADIR 
RADIR 
RAOIR 
RAOIR 
RADIR 
RADIR 
RAOIR 
RAOIR 
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ceHvoa3C2>'» cl'Rvouomi ♦ siGn^»*ct*flvou3cn«T<‘iSfiii < - . ^ ^- 

W tOHUhi'l 
L3C V HHh 
03 210 \-\,n^ 
lOCI T ISM ♦ 3*l 

«Ac«s : cmouocu 

M = fcCfAvOUOCWlI 
13C2 = IStA *1-1 
rik = ttflV0CL0C2*llSl 

rUM 5 tURV0(l3C21 
D3 209 

IOC s L3C ♦ I 
HOOC - NCURVO<lQC) 

LOC = iOC ♦ I 
JIMT r tURV0(L3C)/HRE*S 
TP = T<NOQE> - TI£ft3 
SIGfAT = SlGrtA*FA»TP*TP*TP 

lf(EiPLCn 0TAU(W3DE> s OTPUt^DOO ♦ ^ .0»SlCrPTMRAT 
0(NOO£) = QllKOOE) ♦ P«ATftFAT*i-TP*SIGFAT> 

200 ZQHJlSm 

IOC = LOC ♦ 1 
210 CONTINIJE 

DO 220 t = l,NS 

ISN = NCURV01 ISNA43M-1 1 

TUSfH) = TU$N>*».2S ♦ TZFflO 

220 

RETURN! 

900 yR|TC((,600) ' 

000 FORnATUKO SURFACE CnlSSIVlTV DATA 03E$ «T HAVE 

XTHE CORRECT WUnOER OF VALUES'//II niUM#)) 

CO TO 900 

501 yftlT£i6,60l) 

«01 FORrtATtlHO niMMO/ZlI^THE SURFACE DATA DOES N3f HAVE THE CORRECT- 
S HHJffBER OF VAlUES*//ll l3UlH*n 
CO TO 900 

502 WR]TE(6,602) 

i02 FOnmATlIHO ninM*>//lT'THE SURFACE REFLECTlVITf DATA DOES MAV 
U The CORRECT M'fiBER OF VALUES^ //HI 13HlH*n 
60 TO 900 

509 wflnE(6,60‘i) ycunvouL-i> 

A09 FOR/nAK |H0 nu IM» >//!« ‘THE NODE DATA FOR SURFACE M5,‘ DOES NOT H 
lAvE the CORRECT NUfiBER OF VALUES‘//1I 13HIH*)) 

CO TO 900 

505 WRITEU.BOS) NCURVOCU-l) 

605 FORinATIlHO 1 31(lH» V/1 X ‘THE SUM OF THE AREAS FOR THE NODES ON SURF 
lACE *15, ‘ IS NOT EQUAL TO THE AREA OF THAT 5 uRFaCE*/ZH 13UIH»1) 

GO TO 900 

506 yR(TEU,606 ) 

606 FORnAK IHO 1 311 IH* 1// 11 ‘ THE ElTRA SPACE ARRAT D?E5 NOT HAVE Tn£ CO 
IRRECT NUMBER OF SPACES*//!! 13KIHO) 

60 TO 9D0 

507 yRriE(6,6071 NCURVOflOC) 

607 FORHATMhO I31( IH»>//1I*SI'AFACE NUrBER ‘15,* IN THE SURFACE CONNEC 
ITION DATA ‘JAS NOT SUPPLIED IN THE SURFACE OATAW/n |3UlM*n 

900 yflllE (6,9101 

910 FOfinAn <C ERROR OCCURED IN SUBROUTINE RAOIA,*/ 

I * EXECUTION TERMINATED fiV A PROGRAWO HALT.*^ 

CALL yLFBCl 

call exit 

END 


«NEU 

••-1 


RADIA 

RADIR 

M9!R 

RADIR 

MDIR 

RAOJR 

RAOIR 

RAOIR 

RADIR 

RADIR 

RAOtR 

RAOIR 

RADIR 

RAOIR 

RAOIR 

RADIR 

RAOIR 

RADIR 

RADIR 

RADIR 

RAOIR 
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RADIR 

RAOIR 

RAOIR 

RADIR 

RADIR 

RAOIR 

RAOIR 

RADIR 

RADIR 

RADIR 

RAOIR 

RAOIR 

RAOIR 
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RAOIR 
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RADIR 

RADIR 

RADIR 

RAOIR 

RADIR 

RAOIR 

RADIR 

RADIR 

RAOIR 

RAOIR 

RAOIR 

RAOIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RADIR 

RAOIR 

RAOIR 
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RA0S3L 


RAOSdL ' Raosoc ' MCSJC RAG^^L 


RRDS3L 


RaOSOL RaOSDl 

”■ .I 


1, 

Str«a3UTiac RaDS^tiaiOCi 


NAOSOt 

t. 

€ caimanoN for sotan CROSS aaDianoR 


NADSOL 

1. 

COWN /aaaaf / ccRvodi 


NAOSOL 

a. 

conroa /FUCONf TlfiE 


NADSOL 

I. 

COFwOa /SOfRCt/ 0( 1 1 


NADSOL 

i* 

t 


NADSOL 

1. 

ot^asioa Kioc< i) 


NAOSOL 

1. 

Dlf^RSlOa RCuRfOdl, FRTtlll 


RAOSOl 

1, 

COUtvaLENCC (CUAVO^RCURVO) 


NADSOL 

10. 

c 


NADSOL 

11. 

iF(iaOCd) .EG. 71 GO TO 1 


RAOSOl 

u. 

cau lOPiiR 


NAOSOl 

13. 

VRlTE(6dl RLOCm 


RAOSOl 

la. 

1 FORMidOKO* • • INCORRECT NL'RIER OF ELCP^ENTS INPUT TO RaO$Oi» It 


RAOSOl 

M. 

1 2 d. In • » 


. RAOSOl 

16, 

Cau wiiBca 


RAOSOl 

If. 

can EXIT 


RAOSOl 

le. 

t 


RAOSOl 

H. 

1 ISNR 2 NLJCll) 

•NEW 

RAOSOl 

30. 

ISaiP £ NLOCMl 

••-1 

RAOSOl 

11. 

ISREF = NLOCIa) 


RAOSOL 

13. 

ISNT £ NLOCd) 


RAOSOl 

13. 

ISCON 3 NLaC(6) 


RAOSOl 

la. 

NNa 2 NLOCm 


RAOSOl 

13. 

ISEa s NLOClOl 


RAOSOl 

26. 

NS 2 NCURVOdSNR^n 


RAOSOl 

If. 

NC * NCURVOdSCONV 


RAOSOl 

28. 

in NCUflvO? ISRLP >>150,500 


RAOSOL 

If. 

I6E6 2 ISfja ♦ t 


RAOSOl 

30. 

lENO 2 1SNA ♦ NCURVOdSNAI 


RAOSOl 

31 . 

cau TOPLIN 


RAOSOl 

32, 

WRlTE(6,a00) <NCURVfi(XK >,KI(2|BE6, ICNO > 


RAOSOl 

33 . 

aOO FORflAK ‘OSOtAR CROSS RAOIATION OATA V//6T*$URMCC CATR • / / 1 1 1 « Nl!W 


RAOSOl 

3a. 

lOEft OF SURFACES ^MS/ZllI* SURFACE N'JfnBER*Tl* SURFACE AREA*TI •NI'NOER 


RAOSOl 

3 S, 

1 OF N00E5V/( 20X15, 7IF12. 5^16X15 >) 


RAOSOL 

36. 

IF<NS .RE. (NCURVOdSNA)-t >/3> 60 TO 501 


RAOSOl 

3 f. 

NRITE<6,aOl > (CURVO( I SALP*ltX ), KRrl ) 


RAOSOl 

30. 

aOl FOR^nAK 7//6X*SURFACE ABSORPTlVtlV DATA • //( 1 2K10EU.5 > > 


RAOSOl 

37 . 

IF(NS ,NE. NCURTOdSRUP )) GO TO 500 


RAOSOl 

ao. 

DO 20 |2i,NS 


RAOSOL 

ai. 

UC r ISALP ♦ 1 


RAOSOL 

ai. 

IF (CURVO(LOC) .GT, 0.0> GO TO 10 


RAOSOL 

43. 

CuRvO(LOC) 2 .00001 


RAOSOL 

aa. 

60 TO 20 


RAOSOL 

as. 

10 IF ICLRVOtlOC) .IT, 1.0) GO TO 20 


RAOSOL 

a6. 

Cl'RVfltlOC) 2 ,97797 


RAOSOL 

af. 

10 CO^^TiauE 


RAOSOL 

ao. 

WRITER 6,a03> <CURV0< I SREF^RR >,KK2 1 ,NS > 


RAOSOL 

aa. 

a03 F0RrATl///6f-SUflFACE REFlECTI VI TT DATA V/CIITIOE 1 2 .5 1 > 


RAOSOL 

50. 

IF(NS NE. n:l'RV3( ISREF)) GO TO 502 


RAOSOL 

51. 

00 ao 1=1, NS 


RAOSOL 

52. 

LOC = ISREF * 1 


RAD53L 

51. 

If tCvflVCtLOC) .GT. 0.0 IGO TO 30 


RAOSOl 

5a. 

CuRvO(LOC) 2 .00001 


RAOSOl 

55. 

60 TO ao 


RAOSOL 

56. 

30 IF (CLRVCUOC) .IT. l.0> CO TO aO 


RAOSOl 

57. 

CL'RVOUOCJ = .77997 


RAOSOL 

58. 

ao CONTI M E 


RAOSOL 

57. 

6»RI T£{ e>,aOa > 


RAOSOL 
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1 

909 

r3RAtAT(///4X*SURFACt 1NC10CMT KERT 0 ATA *//1 

41, 


fPiTtll = 9HM2* 

42. 


run 121 3 iMi 

43. 


1«S = ISHT ♦ 1 

4A. 


ICKO = IS«T * 9CLAV0U3HM . 

4S, 


IB 5 ISMT 

44. 


lF(9CfR90t tSMT) .LT. 101 00 TO 96 

4T. 


RCR = RCvRVOt ISHT 1/10*10 

44. 


03 9$ f;l,NUR,IO 

49. 


00 99 R=l,10 

T8. 


IB - 16 * 1 

Tl. 


lff1ABS(9CUR9&( IBll.lf . 99999 .990. |AB$4 NCURvSl 19 11.07 

F2, 

1 

1 GO TO 93 

T3. 


rnr(R*n - 4rei2.5, 

?A, 


G3 TO 99 

TS. 

93 1 c 5H11.31 

24. 

99 

CONTINUE 

2f. 


imiTC(4,FRT> (CVRVOUK 1«IK3IBEGJB1 

T8. 


IBEG = 16E6 ♦ 10 

n. 

95 

CONTUL^E 

99. 


1F( 1BEG*I .GE. TEND! GO TO 99 

SI. 

96 

J = 1 

92. 


DO 97 RrlBEGJEKD 

93. 


i = J ♦ 1 

9a. 


IFUABSnyCt'RVOinn.lT. 99999 .A^O. lABSlNCURVOtRM.CT. ' 

95. 


1 EO TO 92 

94. 


FflTU) ' 4HH2.5^ 

97. 


60 TO 97 

99. 

92 

FMIJl = 5HI9,3I 

89. 

97 

CONTI >iUE 

90. 


J == J ♦ 1 

41. 


DO 98 |:J,11 

92- 


F9T( n r l« 

93. 

98 

CONTINUE 

9a. 


WRI TEI 4,Fnn 1 CDRVO< AA ),AR=tBEG, ICND 1 

95. 

99 

1F(NS .NE. NCURVOIISHTM 60 TO 503 

94. 


IBEG = ISCON ♦ 1 

97. 


lENO s ISCON ♦ NCUflVOl ISCONl 

99. 


WR1TEC4,905 > INCt'RVOl AK J.AAtIBEG, tENO ) 

99. 

905 

FORnAK ///4I*Sl'RFACE CONNECTION DATA * //ll A *FROH SURFACE* 

109. 

7ACE*8i^VUW FACTOR*//! 18X15 , 1 2H5 , 7rCl 2 .5 M 

101. 


LOC 7 NNA 

102. 


WniTFl4,9t01 

103. 

910 

FOnnAM ///61*N3DE CATA<//llI*SUflFACE*4I9( *NOOEM 1 1 • AREA ♦ 

109. 


DO 60 |7l,NS 

105. 


U r ISNA ♦ 3*1 

104. 


I6E6 = LOC * I 

107. 


lENO = LOC ♦ NCuavOrtOC) 

loa. 


WRITEI 4,915) NCURVOILL-n, 1 NtL*R VOC AA 1,AA=IBEG JENO) 

109. 

915 

FOflnAlC U7I5,( Tl 9,911 10, F 15.5 Ml 

110. 


|F(NCURvOlU*n .NE. NCUR90C LOO/21 GO TO 509 

in. 


1ST = LOC ♦ 2 

M2. 


IOC 7 IOC ♦ NCURVO(LOC) 

m. 


ASUn = fl. 

119. 


DO 50 37|5T,L0C,2 

115. 


ASUW 7 ASt'rt ♦ CuRvOtJJ 

114. 

50 

CONTINUE 

117. 


IF< AB5( ASUrt-CUR90UL n/C‘jRVOILLl .GT. .Oil GO i: 505 

Its. 


LOC 7 LOC ♦ 1 

119. 

40 

CONTINUE 

120. 


IFI .5«(NS*N5*NS 1 .CT. NCl'RvOl 1 SEA ) 1 GO TO 596 

121. 


LL = I5NA - 1 

122. 


LOC 7 ISCON 


«*0S9t 

PftDS^V 

*A0$3t 

macsdl 

IIA3S0L 

HdDS3L 

flADjOt 

RADS31 

«ADS0i 

flJkOSat 

RAO sat 

RA0S3L 

RA053L 

RA033L 

RA0S3L 

AA0S3L 

RAOSai I 

RADS3L 

RAOsai 

BAOSOL 

RADS3L 

BRD53L 

RADSai 

RADSOt ) 

BADSOL ' 

RADSQt 

RADSOL 

RADS31 

RADSOi 

RADSOt ' 

RAO$ai , 

RA0S3L 

RAOsat 

RAD331 

RAOSOl 

RA0S3L 

RAOSai 

RADSai 

RAOsai 
RADSOL 
RAQSai 
RAQ301 
RAOS31 
RAOS3L 
RAO sat 
RAD531 
RAosai 
RAD33L 
RAC33L 

RAC33L < 

RA0S31 i i 

RAOS3L 

RAOS3L 

radsjl 

RADS3t 
RAD331 
RAD33L 
RAOSJt 
RAD53t 
HADSDt 
RAD 3 31- 
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MS. 

126. 

127. 

120 , 

120 . 

no. 

ni. 

n2. 

133, 

130. 

133. 

U6. 

137. 

130. 

130. 

MB. 

Ml. 

M2. 

M3. 

M0. 

M5, 

M6. 

M7. 

M0. 

Ml. 

150. 

151. 

152. 

153. 
150. 

155. 

156. 
15T. 
150. 

159. 

160. 
161. 
162. 
163. 
165. 
165. 
U6. 
167. 
160. 
167. 

170. 

171. 

172. 

173. 
170. 

175. 

176. 
ITT. 
170. 
179. 
IBO. 

m. 

102 . 

103. 

107 . 

105 . 


DO 00 M1,0C,3 • » 

DO 75 Jrl,2 
IOC « IOC « I 
00 TO Krt.irs 

IFMtCl'RvOCLOC) •JCORVO(un*in 00 TO 12 

70 CONTIMJE 
eo TO 507 

72 HCL'RVB(LOC) s R 
75 CONTMUE 
lOt = IOC « I 
00 CONTHOiE 

to 109 I = 1,»*C,3 
IOC = I5C0N ♦ I 
Hfft = NCtIfivOUOC) 

MTO £ NCORVOaOCtll 

LOCI = ISNA * 3«NrR 

E6 = -CuRv0«L0C*21*CURV01LQCn 

If<NF«-NT0>95,95 

NHID £ NFR 

HFR s NTO 

MTO = NhlO 

95 L0C2 = <KFR-n*NS - MjFR*NFR-lilFfU/2 ♦ NTD 
CURVOC ISC64'L0C2) : EM 
100 CONTINUE 

DO HO I £ l.NS 

LOC = (1-1)*NS - (MMD/2 ♦ I 

CUflVD( ISE6+L0C1 s CURVflUSEM*L0C1 ♦ CuRtfO(ISli0t3«n/CUftV9MSREr »t I 
no CONTINUE 

CAU 3YflINV<CURV0mEA»U,NS» 

«ITE(6,51I> 

9!7 F0RF^ATt///6l*Ci)NIHECTI0N ORTA*//lU*FROn SURFACE * 9 I*TJ SURFACE* 61 
1‘SCRIPT FA*//) 

00 120 M1,NC^3 
LOCI s ISCQN * 1 
NFR 5 NCURVOaOCI) 

NTO = NtUflVOlLOCMl ) 

IOC r <NrR*M*NS - ( NFR«NFR-NFR )/2 ♦ NTO 

CURVOUOCM2) = Cl'RVO< ISEA^LlC J^CL'RVOI I$ALP«NFR 1«CURV0l ISNA*3«NFR ) 
I «CURVO( 1SNA«3*NTO)/CURVO< tSREF^NFR ) 

WUT£(6,02O) NCURV0<ISNA*3»NrR-l>, NCURVOI rSNAO*NTO-l), 

1 CURV9(L0CM2) 

020 FORMAT( 12I[I0,5IU0. £15.51 
■ 120 CONTINUE 

NCURYOI ISALP 1 2 -NCURVOt 15ALP) 

CALL TOPUN 
150 DO UO |£l,NS 

LOC = I SEA ♦ I - I 
CUAYOILOC) 2 O.C 
LOC = IOC ♦ NS 
LOCI 5 ISHf ♦ I 
tUfiVOHOCl = CURVOUOCl) 

in UBSCNCURVOaOCm.LE. 97999 .and. lABS<NCU^V9(L0Cm.C7. 01 
1 CUflV9(L0C ) - POLTNCL'RVOUOCI »,TiP^E ) 

160 CONTINUE 

00 109 l£l,NC,3 
LOC * ISCON ♦ I 
NFR = NCl'RVOaOCl 
NTO - NCURVO<LOC»I > 

FA = CUflV9U0r*2l 
LOCI r ISEA ♦ NFR - 1 
L0C2 £ ISEft ♦ NS - 1 

CtRVOaaCl) = CVRVOUOCI) ♦ FA»CvRVOU0C2«NT01 
LOCI £ I SEA ♦ NTO - I 


C, . . radsol 

< ■ <, RADSOl. 

, MDSOi 

, RAOSOL 
RAOSOL 
RADSOL 
RAO SOL 
RADSOt 

radsol 

RAOSOL 

RADSOL 

RAOSOL 

RADSOL 

RADSOL 

RAOSOL 

RAOSOL 

RADSOL 

RADSOL 

RADSOL 

RADSOL 

RADSOL 

RADSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RADSOL 

RAOSOL 

RADSOL 

RADSOL 

RADSOL 

RADSOL 

RADSOL 

RAOSOL 

RAOSOL 

RADSOL 

RADSOL 

RAOSOL 

RADSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RADSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RAOSOL 

RACSOL 

RAOSOL 

RAOSOL 

RADSOL 

RAOSOL 

RACSOL 

RACSOL 
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nr. 

I8». 

ie«. 

no. 

in, 

in, 

m. 

i«. 

m. 

nr. 

198 . 

199. 

200 . 
201 . 
202 . 
203 . 
209 , 
209 . 
206 . 
2or. 
200 . 

209 . 

210 . 
211 . 
212. 
213 . 
219 . 

215 . 
2U. 
21T. 

216 . 

219 . 

220 , 
221 . 
222 . 
223 . 
229 . 

225 . 

226 . 
222 . 
226. 

229 . 

230 . 

231 . 

232 . 

233 . 
239 . 
239 . 
236 . 

217 . 

218 . 
239 . 


CL'RWOUOCII « tfftvouocn ♦ f 0 *CU 1 ^VOlLaC 2 *ll !;61 ^ . 

100 COMTINUC 
I.OC 1 MK9 
00 220 m.MS 
(LOCI = 1SN9 ♦ 3*1 
AREAS = Cl'RVOlLOCn 
HH 7 ACURVOUOCIO ) 

SO = CuRvOUSEAM-n 

00 210 j~\,m 
toe = IOC ♦ I 
HIDE = NCuRvOdOCi 
Lo: = toe ♦ 1 

Q<N3DE) = OlhOOEl * CVRVOUOC1/AREAS*SO 
210 CONTINUE 

toe = toe ♦ I 

220 CONTINUE 
RETURN 

50C WRITEC 6,600) 

600 F 0 n/ 9 ATMH 0 nillH*)//ll*m SURFACE A6S0RRTIVIT? DATA COES AOT MAV 
IE THE CORRECT MjrBER OF VALUES‘//H 11UIM*I> 

CO TO 900 
501 kiniTE< 6,e:U 

601 FORhAHIHO 13H 1H*1/MI»TKE SURFACE DATA COES OT HA9l ^hP CORRECT 

1 NUnBEft OF VALUES*//1I 13M1H*!! 

CO TO 900 

902 WR1TE(6,602) 

602 FOflftATMHO 11H IH* 1//IIUHE SURFACE REFLECTIVITY DATA DOES NOT MAV 
I€ THE CORRECT NUHBER OF VALUESV/U 13HIH01 

60 TO 900 
503 WRITE(6.603> 

601 FORHATdHO I3H1H*)//1 I»ThE SURFACE INCIOENl HEAT DATA COES NIT HA 
IVE THE CORRECT NUflBER OF VALUES*//!* IIKIH*)) 

GO TO 900 

509 6/RlTEC 6,609 > NCURVO<Ll-l) 

609 FOfinAK IHB 11H IH»)//11*TME NOQE CATA FOR SURFACE *15,* C3ES NOT N 
lAVE THE CORRECT NUMBER ilf VALUES»//1X llltlHO) 

CO TO 900 

505 WRnEU,605 ) NCuRVO(Ll-U 

605 FORHATI IhO 1 3U IH« 1//1 X ‘THE Sun OF THE AREAS FOR TmE N0CE$ ON SuRF 
lACE *15,* IS NOT equal TO THE AREA OF THAT SURFACE*//!* 13U1MO) 

GO TO 900 

506 NRITE(6,6C6) 

606 rOflfiATUHO IIUIH* >//|I*THE EXTRA SPACE ARRAY d:ES NOT HAVE THE CO 
IRRECT NuriBER OF SPACES*//U 13U1HO) 

GO TO 900 

50T IJRIT£(6.60T1 NCuRVOUOC > 

607 FOAnAUlHO I IMIKO// U * SURF ACE NUT'BER *15,* IN THE SURFACE CONNEC 
ITION DATA WAS NIT SUPPLIED IN THE SURFACE GaTA'//H UUIH*)) 

900 k’RITE (6,n0) 

910 FORhATC <0 ERROR OCCUREO IN SUBROUTINE RA033L,*/ 

X * EXECUTION TEHaIINATEO BV A PROGRArnEO HAL T . * J 
CALL NLKBC* 

call exit 

END 


AAOSOL 
‘ lAOSOt ' 
RAOSOL 
RAOSOL 
AADSOL 
RAOSOL 
RAOSOL 
RAOSOL 
RAOSOL 
RADSOL 
RAOSOL 
RADSOL 
RAOSOL 
RAOSOL 
RADSOL 
RAOSOL 
RAOSOL 
RAOSOL 
AADSai 
RAOSOL 
RAOSOL 
RADSOL 
RADSOL 
RAOSOL 
RAOSOL 
RADSOL 
RAOSOL 
RAOSOL 
RAOSOL 
RADSOL 
RAOSOL 
RAOSOL 
RADSOL 
RAOSOL 
RAOSOL 
RADSOL 
RAOSOL 
RADSOL 
RAOSOL 
RAOSOL 
RADSOL 
RADSOL 
RAOSOL 
RADSOL 
RAOSOL 
RAOSOL 
RAOSOL 
RADSOL 
RAOSOL 
RADSOL 
RAOSOL 
RADSOL 
RAOSOL 
RADSOL 



«E^P3L REVPOl «tVP3L ftEVPOL PEVPOL «CVP2 l ftEVPOL WvP3L 


REVPat 


suwaunne revpoliv^r.xi rwdl 

^ REVP3L 

OIKMSION AU» REVP3L 

c REVP3L 

EOVlVALE»4CC 10,10 REVP3L 

C REVPOL 

C REVP3L 

0 - R< U REVP3L 

= •! REVP3L. 

inrOO(tt,2l .GT. 0> GO TO 20 REVPDL 

IFUni^n ,6T. M3)) 63 TO 16 REVP3L 

» = 6121 REVPOL 

mv .6E. «(31) RETURfI REVPdL 

X = RtN) REVPOL 

JFIY At. 6UJ*1)) BETUR^I RtVPOL 

03 U t=4,N,2 RtvPOL 

1f(Y - M l«m 15,10,5 RtVPOL 

5 I = RU-2) ♦ 1V-A<I-1))*(MI hAU’2))/<Ml^l)-MI*in REVPOL 

BtTURN REVPOL 

10 X 5 6(1) REVPOL 

RtTUR»< REVPOL 

15 CONTlkritit REVP3L 

00 TO 20 REVPOL 

16 X s R(2) REVPOL 

lf<V At. Min RETURN REVPOL 

X s R(N) REVPOL 

IFIV A€, MN^ni RETURN REVPOL 

DO 19 I=5,N,2 , REVP3L 

IFiV - A( 1*1 J) 17,16,19 REVPOL 

IT I = MI-2) ♦ (y-Rn-1M*U(!)-M1-2))/(RM»l)*Rtl-in REVPOL 

RETURN REVPOL 

TO X = AH) REVPOL 

RtTURN REVPOL 

19 CONTINUE REVPOL 

20 WRirE(6,2S> M 1) REvPOL 

25 fORriflTC36H WRONG RRHRV LENGTH FOR REVPOL, IC s 151 REVPOL 

CALL HKBCX REVPOL 

CALL EXIT REVPOL 

CNO REVPOL 



A- 102 


StfilDL SfHS3l SWS3C StPlS^l 


srn^L svnsot SYnsai svitsau svfisat 


1* 


SUBWnnC STPiSOLC 1 

SvnSOt 

1. 

C 


svnsOL 

1. 


Olf^ENSIOfl AUt* 01 1> 

StnsoL 

n. 


oauoic 9REcista<n oim» work 

SvnsoL 

%, 

e 

fRCTOlire GIVEN PATRII BY f^CBNl OF SUBROUftNC TtfSO 

SvnsOL 

•. 

c 

II > THRNSROSEtTMf 

SVnSOL 

T. 


COIL rFSD(0,N,sm 

SvnsOL 

1. 

c 

1NVCRT UPf^ER TfWONSVLOR f^&IRII T/FRER6RE INVERSION tOOR 

SVnSOL 

1* 


1 IPIV 7 N»INM)/2 

SVnSOL 

10. 


INO = IPIV 

SvnsOL 

It. 

€ 

INIM6LI2E INVERSION-LOOP 

SVnSOL 

u. 


00 6 1:1. M 

SVnSOL 

11. 


DIN : l.DO/A( IPIV) 

SvnSOL 

1^. 


RCIPIV) = DIN 

svnsoi 

11. 


PUN : % 

Svnsot 

u. 


REND s 1 - 1 

SvnSOi 

IF. 


LRNF 2 R - RENO 

svnsoi 

16. 


IF(XENO) 1,1,2 

SVnSOL 

11, 


2 J = INCr 

svnsoi 

20. 

C 

INITIALIZE ROU-IOOP 

svnsoi 

21. 


DO 1 R:1,«£ND 

svnsoi 

22. 


WORK : 0.00 

svnsoi 

21. 


BIN = BIN - 1 

svnsoi 

21. 


LNOR a IPIV 

SvnSai 

21. 


IVER = J 

SvnsOL 

n. 

c 

START INNER LOOP 

svnsoi 

22. 


00 3 ULANF^BIN 

svnsoi 

21. 


LVER 5 LVER ♦ 1 

svnsoi 

29. 


LHOa S LHOR ♦ L 

svnsoi 

30. 


1 iiORR : k'ORR ♦ R( LVER )*R( LHOR) 

svnsoi 

)1. 


RU) s -wORR«DtN 

svnsoi 

n. 


1 J 3 J * P^IN 

svnsoi 

11. 


9 IPIV = IPIV - BIN 

svnsoi 

19. 


4 1N0 = INO - 1 

svnsoi 

31. 


' ID s N«(N«1 )/2 

svnsoi 

16. 


DO 12 t=N,l,-l 

svnsoi 

IT. 


LD - ID - I 

svnsoi 

18. 


Sun = 0.0 

svnsoi 

39. 


DO 11 J:|,r 

svnsoi 

90, 


Sun s sun * R(LD*J)*e(J) 

svnsoi 

11. 


11 CONTINUE 

svnsoi 

12. 


BM ) 3 Sun 

svnsoi 

13. 


12 continue 

svnsoi 

11. 


ID : 0 

svnsoi 

11. 


DO 6 1-1, N 

svnsoi 

16. 


to = ID ♦ 1 

svnsoi 

17. 


R = ID 

svnsoi 

18. 


Sun =0.0 

svnsoi 

19. 


00 7 J=I,N 

Svnsoi 

10. 


sun s sun ♦ 

svnsoi 

11. 


R = I ♦ J 

Svnsoi 

12. 


7 continue 

SvnSJL 

11. 


BU) = Sun 

svnsoi 

11. 


6 CONTINUE 

svnsoi 

11. 


RETURN 

Svnsoi 

16. 


11 RETURN 1 

SVnsOL 

17. 


END 

svnsoi 
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TinCMIt' * TihCK* TI«CKH '* TlflCH< 


iintM ■ TiKitr ■' lir»CHt fintw «»■ TI«hk - 


SUBRJUT1NC 

towQit / mean / coNU) 

fOUUULtnCE <CONUI.T»nEiyi, tCant31.T|P«E«iO>, tC>illt>.WPUTI 

OMA CTinn / 0.0 / 

IFlCTIf^Et .6T. 0.01 GO TO 100 
CALL ClOC»<CTI«n 
CTl« = 0,0 
60 TO 200 

100 call CLOCACCTlFiE) 

CTlf^E 5 CTIAE - CTIflEI 
300 IfCKOOC .€0. 0> CO TO 350 
CALL LINECA(3) 

*ift!T€t6.300) ETir^E 

300 rOflFiATC UHOCOfiPUTER TIP^E “ FO.3^ 8M minUTES* 

350 IF(Et|FiE LT. AT|PE> AETUAH 
CALL LINECK<2» 

IFtAOOC ,E0. 0) GO TO A50 

im|TEU,AOO» flTIfiE , ^ 

«0 F0AnAT(67H0EXECyTI0N TERniNATEO 0ECAU5G COnFuTG^ Tl« GlCEfOS TIWC 
I AEQUESTEO, F9,3. 8H mNUTE$> 

60 TO 500 

^50 wn£C$,A75l RTIfiE 

A75 FORnAT( 38H0C0r\PUtEA TIRE EXCEEDS TIRE AEOUESTEO, F9,3j M AIHUTES) 
500 TlfiEKD = TlnEN 
OUTPUT s 0,0 
RETURn 
END 


•ItCll 

flfCMA 

TIIICHR 

IInCHA 

•NEW 

fiNCMA 

•NEW 

TinCRA 

••-1 

TIRCHA 


TinCHA 

tiNCRA 

••M 

TlRtM 

TIhCHA 

TlPtHA 

IIRCHA 

TINCMA 

TIrC«A 

TIRCMA 

TIRCHA 

TIRCHA 

TlNCHA 

TINCHA 

TINCHA 

•NEW 

TIRCHA 

•NEW 

TIRCHA 

TIFICMA 

TIRCHA 

TlRCMA 

•NEW 

TIRCha 

•NEW 

liRCWK 

•NEW. 

TIRCHA 

TIRCHA 


TIRCHA 

TIRCHA 
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11. .... 


1, StJBKOliTlNE TO?UN 

2, C 

3. COfVJi* /T!UC f H<20) 

COnnON /FltCOH/ MM) 

S. t 

4. lr<M(l0> .CO. in ftCTUBM 

T. II(2S> ^ 11 

I. K(29) X N<29) « 1 

1. wn|TC(4jaO) M(29)^ M 

10. too FDfll^AU U^HITRU SYSTCFiS iFtPROVEO MUPJCMICK OtffCBCHCfMG 4MML9ICB 

n. * • - , SINOA - - - VM|VAC*ltO« FDRTOAM-V VtHSIOM M 

12. •GC ^ 19 // 5) lOAfc) 

n. RETUflM 

H, CNO 


T3PLIM fOPLlN 


TOPLIM 
TOPLIM 
lOPUM 
TOfLlM 
lOPtiM 
fOPLIN 
TOPLIM 
T3PLIM 
T3PLIN 
TOPLlM 
TOPtlM 
«flCy TOPLIM 

•♦-1 roPL»:j 

TOPtIN 
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tPRPiTn ' TP«HT 


I 

I 

3 

5 

« 

T 

e 

1 

10 

n 

13 

i? 

1^ 

15 

16 
17 
U 

19 

20 
2! 
22 
23 
25 

25 

26 
2T 
28 

29 

30 

31 

32 

33 
39 
39 

36 

37 

38 

39 

90 

91 

92 

93 
99 

95 

96 

97 

98 

99 

50 

51 

52 

53 
59 
95 

56 

57 

58 

59 


SUBROUTINE TFRNT 

tOGICRL LSRT. CHX 

DIP^EKSION CITUI 

CQPVKIN /TEnP / im 

COivON /YSPACE/ hOin, NTH^ NEVTlIl 

COFtfiON /rtiCON/ KON< I ) 

CQIV13N /DIP^ENS/ NNQ, NNR, NNT 
' COPWON /fOiNTN/ INODE 

EQUtmCNCE (NEXT.Ein 

ORIR LSRT / ,FRLSE. f 
ORTA HT / IHT / 

IFILNOOE .EO. 0) CAU NNRCAtK 11 
CALL STNOnO 
IFdSRTI ca TO 50 
tSRT 2 .TRUE. 

MDin = NDin * NNT 
SFtNOIFI AT. 0> 60 TO 100 
NNOOE 2 NDlfl ♦ HfH 
00 10 1=1, NNT 
llEXT<NNOOE«n 2 I 
10 CONTINUE 

00 30 J=2,NNT 

K = NNT - J « I 
CMK = .TRUE. 

DO 20 N^1,K 

HH = NEIT1NNGDE«N 1 

NNl s NEUINNOOE^NPl) 

IFINEKTUNODE^NN) .LE. NEXfUNDOE^NNl) ) GO TO 20 
CHX = .FALSE. 

NtIT(NNODE»N 1 = NNl 
lfE5tT<NN3DE+N*ll = NN 
20 CONTINUE 

IF(CHA) GO TO 50 
30 CONTINUE 

50 1F1N01P1 AT’. 121 60 TO 100 
J = 1 
1=6 

n = NTH » 1 

60 1F(L .GT. NNT) L = NNT 

1 r n 

DO TO I=J,l 
N = NEXT(NNODE«I > 

NE1T(K) ? NEIKINODE^N) 

EXT(K*U = T(N> 

F = K ♦ 2 
70 CONTINUE 
A = A * I 

1F(KGNr28) AT. 60> 60 TO 69 
CALL TOPLIN 
WBlFEf6,75 ) 

75 FORnftTUH ) 

AON< 7^ > = FJN(28 > • I 

80 yRITfI6,9(J> <MT, NEXT(l), ElTlI •! >, I =n,A , 2 ) 


TPRNT 

TFRNT 

TFRNT 

TFRNT 

TPRNT 

TFRNT 

TPRNT 

TFRNT 

TFRNT 

TFRNT 

TPRNT 

TPRNT 

TFRNT 

TPRNT 

TPRNT 

TPRNT 

TPRNT 

TFRNT 

TPRNT 

TPRNT 

TPRNT 

TPRNT 

TPRNT 

•MEW TPRNT 

••-1 TPRNT 

TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT* 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TFRNT 
TFRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TFRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
TPRNT 
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I®. « F0RflATl«U, M, 16, S12,5* IXI> 

41. a9N<2aS s XONUei ♦ t 

42. Kit ,M. «»T) RtTuRM 

4?. J = L * I 

4«l. L 5 I ♦ 6 

49. GO TO 60 

66. lOQ kmiTC?6,U0l IVDK 

6T. no FORMAT! T5H0* » • r«lSl*fF|Cl£tfT OVNAniC STO^AOE IVOlLUftLf FOR StW 

40. lUTKE TPRNT, N3K a 15, TN • • •» 

19. STOP 

10. imo. 


TPRUT 

krkt 

TPRNT 

TPRPiT 

KR(»T 

TfRiiT 

TPRRT 

TPR«T 

TPRRT 

KRUT 

TPfU4T 



APPENDIX B 


USERS DESCRIPTION FOR PLOTA 

This appendix presents user descriptions for a SINDA plotting 
routine, PLOTA, and a tape combining routine, MCOMB. Both routines are on 
the second file of the SINDA/Version 9 program tape but are main routines 
rather than user subroutines. A brief description of the routines and the 
user input description is given below. 

PLOTA DESCRIPTION 

The plot routine which is available on the SINDA program tape can 
be used with a history tape from a previous SINDA run to generate microfilm 
output. The items available for plotting are (1) pressures for each pressure 
node or pressure drop values for each tube, (2) valve positions for each valve, 
(3) flowrates for each tube and (4) temperatures for each temperature lump. 

-Each of these items may be plotted as a function of mission time. The user 
's^cifies the grid time range to be plotted, a time label, and the items to 
-be plotted. A number of history tapes may be combined prior to plotting 
^h^results. The user has the option of averaging any portion of the plotted 
curve and of specifying the range of the ordinate axis- 

The system control cards and the data input cards for PLOTA are 
described below: 

SYST EM CONTROL CARDS FOR PLOTA 
RUN 
MSG 
PLT 

AS6 A=XXX (SINDA PROGRAM TAPE) 

ASG E=XXX (FIRST TAPE TO BE COMBINED) 

ASG F=XXX (SECOND TAPE TO BE COMBINED) 

Add additional ASG cards as required for 
tapes to be combined 


7 

8 

7 

8 

7 

8 

7 

8 
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g ASG T=XXX (COMBINED TAPE) 

3 XQT CUR 

TRW A 
PEF A 
IN A 
TRI A 

3 XQT PLOTA 
DATA CARDS 

8 “F 


PLOTA DATA CARDS 

CbTumris Forma t Title 

Card 1 (Title Card) 

1-72 12A6 TITLEA 

Card 2 (Parameter Card) 

1-10 FIO.O TA 

1T-20 FIO.O TZ 

21-30 FIO.O TPG 


31-35 15 ITMX 


36-40 15 MPNT 


Description 

Any 72 alphammeric characters to be used 
as heading for each frame of plots 

First value of time to be plotted (hours). 
Last value of time to be plotted (hours). 

Time range for each grid. Number of grids 
drawn will be (TZ-TA)ZTPG. (If TPG is 
left blank, the job will terminate.) 

Time scale Table: 

= 1, "SECONDS" 

= 2, "MINUTES" 

= 3, "HOURS" 

Any other value, "*****'' 

Print control code 

= 1, prints information to be plotted 
while loading the plot tape 
i 1, will not print information to be plotted 
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Columns 

Format 

Title 

Description 

41-45 

15 

NTP 

Number of tapes to be combined. Use a 
negative number if start and/or stop times 
are specified on Card 3 for any tape to 
be combined. 

46-50 

15 

KT 

Logical unit number to which tape to be 
plotted is assigned. If left blank, unit 
23 is assumed. (See Table B-I) The com- 
bined tape is assigned to this unit. 

51-55 

15 

INC 

= 1, every time point and associated data 
value from the tanes to be combined 
will be transferred to the combined tape. 

= 2, every second time point and associated 
data values will be transferred to the 




combined tape. 




etc. 

56-60 

15 

lUNIT 

Logical unit number to which first tape 
to be combined is assigned. If left 
blank, unit 7 is assumed. 

61-70 

FIO.O 

ASTRT 

Beginning time for averages (hours). 

71-80 

FIO.O 

AST0P 

Ending time for averages (hours). 

Card 3 

(Required only 

if NTP < 

0. See Card 2 columns 41-45) 

1-5 

F5.3 

XSTART 

First time point from first tape to be 

; - • 



combined which will be transferred to 
the combined tape. 

6-l0 

F5.3 

XST0P 

Last time point from first tape to be 




combined which will be transferred to 
the combined tape. 

Repeat XSTART and XST0P 
Card 4 (Item Card) 

in five 

column fields for each tape to be combined. 

i-5 

15 

ITEM 

The item number to be plotted. Use a 


negative value if this item is to start a 
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Columns 

Format 

Title 

Description 

■- - 



new grid. A maximum of four curves may 
be plotted on one grid. Insert a blank 
card when the number of items exceeds 
34000 divided by the number of points 
between TA and TZ. More item cards may 
follow this blank card. 

6-7 

A2 

ITYPE 

A two character item type code which 
determines the type of item to be plotted. 




= XX, pressures or pressure drop values 




= VP, valve positions 
= FR, flow rates 
= ST, node temperatures 

8 

11 

IREL 

= 0, node numbers are actual numbers 
= 1, node numbers are relative numbers 

9-lQ 

r f. 

12 

KAVG 

> 0, calculate the numerical average of 
this item over the interval specified 
by ASTRT and AST0P in columns 61-70 
and 71-80 of Card 2. 




> 9, plot the average on the frame with 
this item. 

n-BB 

8A6 

TITLES 

Item description to be printed at the top 

: ' ■ 


- 

of each grid, along with the plotting 
symbol which is generated and used by the 

59-60 



program. 

Blank 


The next two values are optional (may be left blank) on the cards whose 
item numbers are negative and are ignored on all other item cards. 


61-70 

FIO.O 

YL0 

The minimum 

(reference) value on the 

71 -80 

FIO.O 

YHI 

Y-axis 
The maximum 

value on the Y-axis 


The above limits will be replaced by the program if numbers outside this 
range are found in the histories of the items to be plotted on this grid. 
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Columns 


Format 


Title 


Description 


Repeat Card 4 for each item to be plotted. 

Card 5 

1-80 Blank 

Card 6 

1-80 Blank 

If additional history tapes are to be plotted, repeat Card 1 and subsequent 
cards for each additional history tape. 

COMBINE ROUTINE DESCRIPTION ~ 

The combine routine, MCOMB, can be used to combine as many as six 
history tapes into one history tape prior to its being plotted, or being 
compared to another tape. The combined tape which is generated can be saved 
for future use if required. The user selects the frequency with which the 
time points and associated data values on the original tapes are added to 
the new tape. That is, every time point on the original tape can be added 
to the new tape or every second, third, etc., point can be added depending 
on the requirements for the combined tape. 

The combine routine is a very useful feature if several history 
tapes are generated on a long mission run. By combining these tapes before 
plotting, a continuous plot of the mission can be obtained. The convenience 
of the combine routine can also be observed when mission runs mads with 
different time increments are compared. Obviously, the run made with the 
smaller time increment will take more computer time than the run made with 
the larger time .increment, and will probably require at least one "restart". 
In such a situation, there would be two history tapes with the smaller time 
increment to compare to one with the larger time increment. Normally, this 
would take two separate runs. However, with the new arrangement, the two 
tapes with the smaller time increment can be combined and then compared to 
the tape with the larger time increment on the same run. 

The system control cards and the data input cards for MCOMB are 
described below. 
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USER'S MANUAL FOR MCOMB ROUTINE 


CONTROL AND PROGRAM CARDS 
gZ RUN 

gN MSG 

gS ASG A=XXX {SINDA PROGRAM TAPE) 

g ASG E=XXX (First Tape to be combined) 

g ASG F=XXX (Second tape to be combined) 

Add additional ASG cards as required for 
tapes to be combined. 

g ASG K=XXX (Combined Tape) 

g XQT CUR 

TRW A 
PEF A 
IN A 
TRI A 

g XQT MCOMB 

DATA CARDS 
8 E0F 
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DATA CARDS FOR MCOMB ROUTINE 


Co1 umns 
Card 1 

I- 5 

6-10 

II- 15 
16-20 

21-25 


Card 2 
1-5 

6-10 


Format Title Description 

{Parameter Card) 


15 


15 


15 


15 


15 


NTAPE Number of tapes to be combined. Use a 

negative value if start and/or stop times 
are specified on Card 2 . 

lUNIT Logical unit number to which first tape to 
be combined is assigned. If left blank 
unit 7 is assumed. 

KT Logical unit number to which combined tape 

is assigned. If left blank, unit 13 is 
assumed. 

K0DE2 = 1, time to be added to the times read 
from tapes to be combined will be 
supplied on Card 3. 

= 0, transfer times as read from tapes to 
be combined. 

INC = 1; every time point and associated data 
values read from the tapes to be com- 
bined will be transferred to the com- 
bined tape. 

- = 2, every second time point and associated 

data values will be transferred to the 
combined tape. 


etc. 

(Required only if NTAPE < 0. See Card 1 columns 1-5) 

F5.3 XSTART First time point from first tape to be com- 

bined which will be transferred to the 
combined tape. 

F5.3 XSTOP Last time point from first tape which will 

be transferred to the combined tape. 
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Columns 


Fomat Title 


Description 

Repeat XSTART and XSTOP in five columns fields for each tape to be combined. 

Card 3 (Required only if K0DE2 > 0. See Card 1 columns 16-20) 

1-10 FIO.O ADD Time to be added to each time read from 

first tape to be combined. 

Repeat ADD in 10 column fields for each tape to be combined. 



TABLE B-I 


CORRESPONDENCE BETWEEN FORTRAN UNIT NO. & I/O DEVICE 


FORTRAN UNIT NO. 


I/O DEVICE 


1 A 

2 B 

3 C 

4 D 

7 E 

8 F 

9 G 

10 H 

n I 

12 J 

13 K 

14 L 

15 . M 

16 N 

18 0 

19 P 

20 Q 

21 R 

22 S 

23 T 

24 U 

25 V 

26 W 

27 X 

28 Y 

29 Z 
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